[pascal] pomoc w zadaniu Opcje

[aleo]

Kod

program rysowanie;
uses crt; var x1,y1:longint;ss:string;
procedure pisarz(x,y:longint;s:string);
begin
gotoxy(x,y);
write(s);
end;
begin
clrscr;
   write('podaj x y i s');    read(x1);read(y1);write('podaj s');read(ss);
pisarz(x1,y1,ss);
end.

dlaczego nie wyczytuje zmiennej ss?

[aleo]

ok dobra mam mam jeszcze jedno pytanie zadanie
zdefiniuj funkcję największy dzielnik typu longint liczby n dla liczb n -1 i 1 zwróci 1

mój kod
wydaje mi się ze dobrze działa

Kod

program nd;
  uses crt;

  var
  a:longint;

function nd1(n:longint):longint;

begin
if n>0 then nd1:=n else
if n<0 then nd1:=--1
end;

  begin
  write('podaj n');
  readln(a);
  write('nd', nd1(a):2);
  readkey;
  end.