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