История изменений

Внимательно прочитай описание функции SeekEof https://www.freepascal.org/docs-html/rtl/system/seekeof.html

SeekEof returns True is the file-pointer is at the end of the file. It ignores all whitespace. Calling this function has the effect that the file-position is advanced until the first non-whitespace character or the end-of-file marker is reached.

ignores all whitespace...

Там же и пример приведен

Program Example57;

{ Program to demonstrate the SeekEof function. }
Var C : Char;

begin
  { this will print all characters from standard input except
    Whitespace characters. }
  While Not SeekEof do
    begin
    Read (C);
    Write (C);
    end;
end.

this will print all characters from standard input except Whitespace characters.

SeekEoln тоже игнорирует пробелы

Внимательно прочитай описание функции SeekEof https://www.freepascal.org/docs-html/rtl/system/seekeof.html

SeekEof returns True is the file-pointer is at the end of the file. It ignores all whitespace. Calling this function has the effect that the file-position is advanced until the first non-whitespace character or the end-of-file marker is reached.

ignores all whitespace...

Там же и пример приведен

Program Example57;

{ Program to demonstrate the SeekEof function. }
Var C : Char;

begin
  { this will print all characters from standard input except
    Whitespace characters. }
  While Not SeekEof do
    begin
    Read (C);
    Write (C);
    end;
end.

this will print all characters from standard input except Whitespace characters.