Дан текстовый файл. Вывести на экран самую длинную строку из файла. через паскале.

var

f: text;

s: string;

max: string : = '';

begin / / в папке с программой должен быть файл "input. txt"

if FileExists ('input. txt') then begin Assign (f, 'input. txt') ; Reset (f) ; while not Eof (f) do begin Readln (f, s) ; if Length (s) > Length (max) then max : = s; end; Writeln ('Самая длинная строка в файле: ') ; Writeln (max) ; Close (f) ; end else Writeln ('Файл не найден') ; end.