freepascal.ru

Пишу для того, кто будет делать это задание, чтобы не страдал при его проверке.
Ребята! Делайте исходный файл (InFile) очень аккуратно, как закончили последнюю строку то не надо нажимать на " Enter ", т.е. переходить на новую строку. На новой строке можно написать " пробел ", а программа посчитает такую строку не пустой и будет читать ее бесконечно.

Герман писал(а):На новой строке можно написать " пробел ", а программа посчитает такую строку не пустой и будет читать ее бесконечно.

Эта проблема уже затрагивалась, для её устранения вместо EOF() и EOLN() рекомендуется использовать функции SeekEOF() и SeekEOLN().