Hogyan oldjam meg? (TurboPascal)

Egy olyan programot kell írni ami kutyákat rögzít egy tipusos file ba. Ott akadtam el hogy beletudok írni a file ba,keresni,listázni csak a törlésnél kéne egy kis segítség.

'4':begin {KUTYA TÖRLÉSE}

write('Kerem a torlendo kutya nevet: ');

readln(nev);

reset(f);

seek(f,0);

while not eof(f) do begin

read(f,kutyak);

if (kutyak.nev=nev) then begin

kutyak.nev:=' ';

write(f,kutyak);

end;

end;

close(f);

readkey;

clrscr;

end;

Itt mi a hiba?

A teljes forráskód itt van

www.sourcepod.com/tizjdh48-14554