7. Текстовый файл. Паскаль АВС Описать функцию, которая находит максимальную длину строк...

Question

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

Answer 1

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.