Автор: narkoman 3.06.2004 15:03
Дан текстовый файл. Вывести на экран строку максимальной длины.
Автор: APAL 3.06.2004 23:17
Код
Var
f : Text;
St,S : String;
Begin
s:='';
Assign(f,ParamStr(1));
Reset(f);
While NOT EOF(f) do
Begin
Readln(f,St);
If Lenth(St)>S then s:=St;
End;
Close(f);
Writeln(s);
End.