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.