Program Task_13_6;
Function Max : Byte;
Var s : String;
m : Byte;
Begin
m := 0;
While Not Eof Do
Begin
ReadLn(s) ;
If m End;
Max := m;
End;
Begin
Assign (input, 'g:\test.txt');
ReSet(input);
WriteLn('Максимальная длина = ', Max) ;
Close (input);
End.