Function GetMaxLengthSt(St : String) : String;
Var
 Smax,Scur : String;
 i : Byte;
Begin
 Scur:=''; i:=1;
Repeat
 While St[i]=' ' do Inc(i);
 While (St[i]<>' ')  and (St[i]<>'.') do
 Begin
   Scur:=Scur+St[i];
   Inc(i);
 End;
 If Length(Scur)>Length(Smax) then Smax:=Scur;
Until St[i]='.';
 GetMaxLengthSt:=Smax;
End;

var s: string;
   i,n,imax,nmax: integer;
begin
 writeln('Введите строку:');
 readln(s);
 i:=1; nmax:=0;
 repeat
   while s[i]=' ' do i:=i+1;
   n:=i;
   while (s[i]<>' ') and (s[i]<>'.') do i:=i+1;
   if i-n>nmax then begin
     nmax:=i-n; imax:=n;
   end;
 until s[i]='.';
 if nmax=0 then writeln('Просто нет слов')
 else writeln('Самое длинное - ',copy(s,imax,nmax));
end.