Feladat megírás Pascal nyelven? Kezdő vagyok!

Köszönöm az eddigi segítséget!

Egyenlőre idáig jutottam. A programom a jegyzőkönyvet létrehozza egy jegyzokonyv.dat állományba. Valaki írja le nekem a függvény, ami megkeresi a 3 pontos dobásokat és kilistázza a képernyőre!

type

Szemely=record

nev:string[40];

pont:integer;

end;

var

sz:array[1..4] of Szemely;

f:file of Szemely;

begin

sz[1].nev:='Toth Bela';

sz[1].pont:=3;

sz[2].nev:='Kiss Aladar';

sz[2].pont:=2;

sz[3].nev:='Hig Laszlo';

sz[3].pont:=1;

sz[4].nev:='Kovacs Aron';

sz[4].pont:=3;

assign(f,'jegyzokonyv.dat');

rewrite(f);

write(f,sz[1],sz[2],sz[3]);

close(f);

end.

Módosítva lett a programom egy kis segítséggel, de sajnos a free pascalom nem futatja? Hol lehet a hiba?

type

Szemely=record

nev: string[40];

pont: integer;

end;

var

sz : array[0..4] of Szemely;

f: file of Szemely;

ClrScr; {Kepernyotorlese}

sz[1].nev:='Toth Bela';

sz[1].pont:=3;

sz[2].nev:='Kiss Aladar';

sz[2].pont:=2;

sz[3].nev:='Hig Laszlo';

sz[3].pont:=1;

sz[4].nev:='Kovacs Aron';

sz[4].pont:=3;

assign(f,'jegyzokonyv.dat');

rewrite(f);

write(f,sz[1],sz[2],sz[3],sz[4]);

close(f);

assign(f,'jegyzokonyv.dat');

reset(f);

x:=0;

While Not(Eof(f)) do begin

seek(f,[x]); {fajlban pozicionalas}

read(f,sz[x]); {rekord kiolvasasa}

if sz[x].pont=3 then begin {3 pontos dobas?}

writeln('Nev: ',sz[x].nev,' Pont: ', sz[x].pont);

end;

inc(x);

end;

close(f);

readln;