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.