Найти строку с наибольшей длинной
Понедельник, 07 Сен 2009В текстовом файле найти строку, которая имеет наибольшую длину. Если таких строк несколько, то вывести первую из них.
Program dlina;
var
F: Text;
str,tstr: string;
maxlen,max2,y,n :integer;
Begin
Assign(F,’D:\pascal\Test.txt’);
Reset(F);
tstr:=”;
maxlen:=0;
y:=0;
While not eof(f) do
Begin
Readln(f,str);
y:=y+1;
if length(str)=maxlen then max2:=maxlen;
if length(str)>maxlen then
begin
maxlen:=length(str);
tstr:=str;
n:=y;
end;
end;
if max2=maxlen then Writeln(tstr)
else write(n);
close(f);
End.