Hol a hiba? Egy Típusos filekezelő Pascal programban nem találom a hibát! Kérem aki tud segítsen!

Bocs a forráskód kimaradt!

program filekezeles2;

Uses crt;

type str25: string[25];

str5 : string[5];

tanulotipus=record

neve: str25;

osztalya: str5;

atlaga: real;

end;

var f_iskola: file of tanulotipus;

nev: str25;

osztaly: str5;

diak: tanulotipus;

van: boolean;

begin

Assign(f_iskola,'tanulok.dat');

{$I-}

Reset(f_iskola);

if IOResult<>0 then begin

Write('A file nem elérhető!'); Halt(1);

end;

{$I+}

if FileSize(f_iskola)<>0 then begin

ClrScr;

Write('Kérem a tanuló nevét: ');

Readln(nev);

Write('Kérem a tanuló osztályát: ');

Readln(osztaly);

van:=false;

while (not eof(f_iskola)) or (not van) do

begin

Readln(f_iskola,diak);

if (diak.neve=nev) and (diak.osztaly=osztaly) then

begin

Write('Átlaga: ',diak.atlag);

van:=true;

end;

end;

end else Write('A file üres');

readkey;

end.