7. Текстовый файл. Паскаль АВС

Описать функцию, которая находит максимальную длину строк текстового файла t. Реализовать программу, определяющую длину (количество символов) в самой длинной строке произвольного текстового файла с использованием этой функции.

Var t:text;

max:integer;

function Maxt (var t:text) : integer;

var s:string;

max:integer;

begin;

max:=-280;

assign (t,'text. txt');

reset (t);

while not (Eof (t)) do

begin;

readln (t, s);

if length (s) >max then

max:=length (s);

end;

close (t);

Maxt:=max;

end;

begin;

max:=maxt (t);

writeln ('Max:', max);

end.