Дан текстовый файл, содержащий целые числа. Найти максимальный элемент в каждой строке.

program Project1;
 
(*
Найти максимальное число в каждой строке текстового файла.
Числа в строке разделены любым количеством пробелов.
*)
 
const
  (*Имя файла.*)
  FileName = 'file.txt';
var
  (*Файловая переменная.*)
  f : Text;
  (*Счётчик строк в файле.*)
  Row : Integer;
  (*Максимальное целое число в строке.*)
  IntMax : Integer;
  (*Целое число.*)
  IntTmp : Integer;
  (*Флаг, показывающий, что в данной строке есть хотябы одно число.*)
  IsFound : Boolean;
begin
  (*Связываем файловую переменную с именем файла.*)
  Assign(f, FileName);
  (*Открываем файл в режиме "только чтение".*)
  Reset(f);
  (*Читаем построчно файл.*)
  Row := 1;
  while not Eof(f) do begin
    IsFound := False;
    (*Читаем последовательно числа из очередной строки файла.*)
    while not Eoln(f) do begin
      (*Читаем очередное число в строке файла.*)
      Read(f, IntTmp);
      (*Исследуем величину числа.*)
      if not IsFound then begin
        IntMax := IntTmp;
        IsFound := True;
      end;
      if IntTmp > IntMax then begin
        IntMax := IntTmp;
      end;
    end;
 
    (*Распечатываем результаты по текущей строке файла.*)
    Write('Stroka Nomer ', Row);
    if IsFound then begin
      Writeln(' Maximalnoe chislo = ', IntMax);
    end else begin
      Writeln(' Chisla v strke ne naideni');
    end;
 
    (*Переходим к следующей строке файла.*)
    Readln(f);
    (*Номер следующей строки файла.*)
    Inc(Row);
  end;
  
  (*Закрываем файл.*)
  Close(f);
  
  Readln;
end.