Free Pascalban hogyan?

program ötöslotto;

uses crt;

var tomb_gen: array[1..5] of integer;

tomb_beker: array[1..5] of integer;

c:char;

f:text;

procedure beker;

var i:byte;

Begin

GotoXY(12,1);

Writeln('Adatok bevitele');

for i:=1 to 5 do begin

GotoXY(2+i,1);

Writeln('Kérem az ',i','. számot');

Readln(tomb_beker[i]);

end;

end;

procedure generate;

var b:byte;

Begin

randomize;

tomb_gen:=random(90)+1;

end;

procedure csere(var a: byte,b:byte);

var temp:integer;

begin

a:=csere;

a:=b;

b:=csere

procedure rendez;

var j,k;

Begin

for j:=1 to 5 do begin

for k:=2 to 5 do begin

if tomb_beker[j]>tomb_beker[k] then csere[tomb_beker[j],tomb_beker[k]);

if tomb_gen[j]>tomb_gen[k] then csere(tomb_gen[j],tomb_gen[k])

end;

end;

procedure sorsol;

var c,d,number:byte;

begin

beker;

generate;

rendez;

for c:=1 to 5 do begin

for d:=1 to 5 do begin

if tomb_bek[c]=tomb_gen[d] then

number:=number+1;

end;

end;

Assign(f,'lottoszámok.txt');

{I-} Append(f); {I+}

if IOResult<>0 then Rewrite(f);

Writeln('Gratulálunk neked ',number,'darab találatod van');

Writeln(f,'Gratulálunk neked ',number,'darab találatod van');

Close(f);

end;

Begin

ClrScr;

sorsol;

Writeln('Akarsz még egyszer játszani?(Y/N)');

repeat

c:=readkey

until(c='Y') or (c='N')

if c='Y' then sorsol;

end.