fehler E/A 105

[Mosi17]

Delphi-Quellcode:

reset(datei);
[...]
   if zahl2=0
    then
     begin
     [u]writeln(datei,name);[/u]
     writeln(datei,inttostr(zeit));
     end
    else
     begin
     for i:=1 to zahl2*2 do
      begin
      readln(datei);
      end;
     writeln(datei,name);
     writeln(datei,inttostr(zeit));
     end;
   end;
closefile(datei);

Bei der unterstrichenen Zeile erhalten ich immer den oben genannten Fehler. Falls ich ein rewrite(datei) davor setzte kommt er nicht und es klappt alles wunderbar, doch das ist ziemlich schlecht für mich, weil ich mehrere Highscores in dieser einen Datei speichern möchte.
Falls einer die Lösung des Problems kennt, wär ich sehr dankbar für Hilfe...