fpc, не собирается старый код

https://smartpascal.github.io/help/assets/input.htm пишет, что input - Delphi-специфичная стандартная переменная. Подозреваю, что во Freepascal ее нет.

В твоей цитате в принципе говорится про файловые типы, а не переменные. Но возможно это косяк в документации (а сам я не помню уже).

Но в тексте ошибки у тебя вообще-то написано не про ненайденный идентификатор переменной, а про неверный квалификатор. И тут вопрос: разве оператор ^ применим к файловым переменным? Это же вроде была работа с указателями

Теоретически, это попытка реализовать символьный i/o (k&r, глава 1.5): считать символ с консоли и выплюнуть обратно юзверю. Весь вопрос – как это сделать на современном паскале?

Насчёт работы с указателями не знаю, пока просто не добрался до них.

Надо смотреть как там устроен TextRec внутри, думаю будет чтото вроде такого:

const
  SPACE=' ';
function GetByte(var t:Text):char;
begin
  if TextRec(t).BufPos>=TextRec(t).BufEnd then
    result:=#0
  else
    result:=TextRec(t).Bufptr^[TextRec(t).BufPos];
end;
var
  ch: char;
begin
  while GetByte(input) = space do
    read(ch);
  while GetByte(input) <> space do
    begin
      read(ch);
      write(ch);
    end;
end.

Только не result := #0, a GetByte := #0. Всё остальное я уже сам допишу. Благодарю. :)

Это очень старый синтаксис доступа к файловой записи, для
f: file of type
запись f^ обозначала текущую запись в файле.

В нынешних реалиях есть SeekEoLn, SeekEoF, скипающие из входного потока очередные символы [#0..#32].

У Вирта это был доступ к данным файла по текущему файловому указателю (согласитесь, определённая логика в этом есть).
На сегодняшний день я не знаю трансляторов паскаля, которые поддерживали бы этот синтаксис.

Только не result := #0, a GetByte := #0.

Если говорить о Free Pascal, то
https://www.freepascal.org/docs-html/ref/refse94.html

В двух словах, в режимах ObjFPC и Delphi ({$mode ObjFPC}, {$mode Delphi}) помимо ИмяФункции:=значение доступен синтаксис возврата значения
а) через Result:=значение и
б) через Exit(значение).

Что касается предложения @zamtmn, на старте программы (а равно и сразу после Reset(TextFile)) буфер файла еще пуст:

begin with TextRec(input) do begin
  WriteLn('BufPos: ',BufPos,', BufEnd: ',BufEnd);  // BufPos: 0, BufEnd: 0
end; end.

Лучше как-то так:

type
  FileFunc = procedure(var t: TextRec);

function PeekChar(var t: Text): Char;
begin with TextRec(t) do begin
  PeekChar:=#0;
  if InOutRes<>0 then Exit;
  if mode<>fmInput then Exit;
  if BufPos>=BufEnd then begin
    FileFunc(InOutFunc)(TextRec(t));
    if BufPos>=BufEnd then Exit;
  end;
  PeekChar:=BufPtr^[BufPos];
end; end;

Free Pascal supports ISO 7185 Standard Pascal with the compiler mode command line option -Miso or with the source code compiler directive {$mode ISO}.