Hogy oldjam meg file kezelés?

Egy ...\*.txt file -ba keresni kéne egy embert én így próbáltam megoldani de nem jött össze ebben kérném a segítséget.

(A program csak egy része)

procedure keres;

var nev : string;

begin

clrscr;

assign(f,'nevek.txt');

reset(f);

while not eof(f) do begin

readln(f,r.nev);

readln(f,r.szam);

readln(f,r.cim);

writeln(r.nev);

end;

textcolor(white);

write('Kerem a keresendo nevet: ');

readln(nev);

if nev=r.nev then begin

writeln('Neve: ',r.nev);

writeln('Telefonszam: ',r.szam);

writeln('Lakcim: ',r.cim);

readln;

end;

close(f);

end;