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.