Дан текстовый файл input.txt...

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.