задача на типизированный файл

[vAdiM_Kubski]

дан тип файл структуры: NAME, POST, YEAR, Zrpl
исключить первого с данной должностью ( должность вводится с клавиатуры )

program kurs33;
uses crt;
const m=6;
type worker=record
NAME:string[10];
POST:string[10];
YEAR:integer;
Zrpl:array [1..m] of real;
end;
var
Fin:file of worker;
s:worker;
dolzh:string[10];
Nom,i:integer;
BEGIN
clrscr;
ASSIGN(Fin,'D:\data.tip');
reset(Fin);
write('vvedite dolzhnoctb:');readln(dolzh);
repeat read(Fin,S);
until (eof(Fin)) or (S.POST=dolzh);
Nom:=filepos(Fin)-1;
for i:=Nom+1 to filesize(Fin)-1 do
begin
seek(Fin,i);
read(Fin,S);
seek(Fin,i-1);
write(Fin,S);
end;
truncate(Fin);
close(Fin);
readkey
END.

делаю все вроде правильно, но не работает, хелп