Program dfgh;
Var s : String;
small, long : Integer;
Procedure CorrectLengths(len:Integer);
Begin If len If len>long Then long:=len;
End;
Procedure DelSpaces(Var s:String);
Begin While (s[1]=' ') And (Length(s)>0) Do s:=Copy(s, 2, Length(s)-1);
End;
Procedure Words(s:String);
Var p:Integer;
Begin s:=s+' ';
small:=Length(s);
long:=0;
DelSpaces(s);
While s<>'' Do Begin p := Pos(' ', s);
CorrectLengths(Length(Copy(s, 1, p-1)));
Delete (s, 1, p);
DelSpaces (s);
End;
End;
Begin WriteLn('Ââåäèòå òåêñò: ');
ReadLn(s) ;
Words (s) ;
WriteLn('Äëèíà ñàìîãî êîðîòêîãî ñëîâà ', small, ' , à ñàìîãî äëèííîãî ', long);
end.