Mi lehet a hiba? Pascal

program szamkitalalo;

uses crt;

var

szam, gen, max, hiba:integer;

s:string;

function elfogad(s:string):boolean;

begin

if (s = 'y') or (s = 'n') then elfogad:=true

else elfogad:=false

end;

function ujjatek(s:string):boolean;

begin

if elfogad(s) then

begin

if s= 'y' then ujjatek:=true

else ujjatek:= false

end;

begin

randomize;

repeat

repeat

clrscr;

write('max: ');

readln(s);

val(s, max, hiba); {is numeric? yes :3th int =0, no: ~=1}

until (hiba = 0);

gen := random(max+1);

repeat

gotoxy(1,2);

write(' ');

gotoxy(1,2);

write('tipp: ');

readln(s);

val(s, szam, hiba);

until (hiba=0);

writeln();

if szam = gen then writeln('talalt! :D')

else writeln('majd legkozelebb... gen: ', gen);

writeln();

writeln('uj jatek? y/n');

readln(s)

until (ujjatek(s) = false)

end.

Azt irja ki, hogy ";" expected but "." found a program legvegen. En nem talaltam erre indokot, valami otlet?