Исправление bormant, (текущая версия) :
Выше уже ответили, SeekEoLn и SeekEoF удаляют пробелы из потока ввода.
Надо отметить, что это надлежащее поведение (см. Turbo Pascal, где они появились изначально, Delphi).
Однако, в FPC оно когда-то было иным: SeekEoLn и SeekEoF «смотрели вперёд», есть ли за пробельными символами что-то непробельное, но сами пробельные символы из потока ввода не убирали. Вот для такого поведения код выше был бы корректным.
PS.
https://wiki.freepascal.org/User_Changes_3.2.2#SeekEof
SeekEof
Old behaviour: If SeekEof did not find the end of the file, it tried to restore the input to its original state/position.
New behaviour: Data consumed by SeekEof while looking for the end of the file (such as spaces) will remain consumed.
Reason: improved TP/BP/Delphi compatibility
svn: 46946
Исходная версия bormant, :
Выше уже ответили, SeekEoLn и SeekEoF удаляют пробелы из потока ввода.
Надо отметить, что это надлежащее поведение (см. Turbo Pascal, где они появились изначально, Delphi).
Однако, в FPC оно когда-то было иным: SeekEoLn и SeekEoF «смотрели вперёд», есть ли за пробельными символами что-то непробельное, но сами пробельные символы из потока ввода не убирали. Вот для такого поведения код выше был бы корректным.