Delphi, файлы

[programming]

Итак, теперь у меня проблемы с другой темой.
Задача: создать файл F и переписать в файл G нечетные строки.
Мой результат, который, несмотря на свою простоту и логичность (для меня, по крайней мере), крашится на одной строке, гррр:

uses
  SysUtils;
var f, g: text;
    fname, gname, fst, gst, stplus: string;
    i, j, n: integer;
begin
fname:='F';
gname:='G';
assign (f,fname);
assign (g,gname);
rewrite(f);
randomize;
n:=0;
for i:=1 to random(10)+5 do
   begin
      fst:='';
      inc(n);
      str(n,stplus);
      for j:=1 to 8 do
            fst:=fst+stplus;
      writeln(f, fst);
      writeln(fst);
   end;
rewrite(g);
while not EOF(f) do    {<=== ЭТА САМАЯ СТРОКА}
  begin
    Readln(f,fst);
    Writeln(g, gst);
    Writeln(g);
    readln(f, fst);
  end;
 close(f);
 close(g);
readln;
end.

Не понимаю, чем компилятору не понравился старый добрый эол. Ковырялась в окне отладки, но это не подсказало мне причину краша. Рассчитываю на вашу помощь, у меня уже правый глаз нервно подрагивает C: