Versuch hinter dem Dateiende zu lesen

[RhodosGuard]

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var key:String[25];
i:integer;
h:integer;
begin
assignfile(woert,'Wörterbuch.dat');
Reset(woert);
key:=Inputbox('Abfrage','Welches Wort löschen?(bitte das englische Wort eingeben)','');
for i := 1 to filesize(woert) do begin
  read(woert,Woerterbuch);
  if key=Woerterbuch[i].Englisch then begin
    h:=i;
    löschen(h);
    exit;
  end;
showmessage('Das Wort steht nicht im Wörterbuch');
end;
closefile(woert);
end;

Procedure löschen(h:integer);
var m:Twoerterbuch2;
begin
Read(woert,Woerterbuch);
while h<Filesize(woert) do begin
  m[h]:=Woerterbuch[h];
  Woerterbuch[h]:=Woerterbuch[h+1];
  Woerterbuch[h+1]:=m[h];
  write(woert,Woerterbuch);
  inc(h);
end;
seek(woert,Filesize(woert)-1);
truncate(woert);
end;

SIeht mittlerweilse so aus sagt mir aber "Dateizugriff verweigert" und dannach habe ich angeblich eine Filesize von 1001 und es fehlen 2 Einträge.