конец файла

[Cheb]

Код: Выделить всё

     while NOT EOLn (F) do
     begin
          try
               read (F, N1);
               readln (F, N2);
               writeln (N1:8:5, N2:8:5)
          except
               break;
          end;
     end;

[Romtek]

кстати, я пробовал на файле, у которого в конце текстового файла пустая строка и обошёлся без try .. except