VAR
 S:String;
 i,Imax,Max,Nw,i1,i2:Byte;
 W:Array[1..128] of String;

BEGIN
 { Ввод строки }
 WriteLn('Enter the string:');
 ReadLn(S);

{ Разбиение строки на слова; слова формируют массив W }
 i:=0;
 Nw:=0;
 Repeat
  Repeat
   Inc(i);
  Until S[i]<>' ';
  i1:=i;
  While (S[i]<>' ') and (i<Length(S)) do
   Inc(i);
  If i=Length(S) then i2:=i else i2:=i-1;
  Inc(Nw);
  W[Nw]:=Copy(S,i1,i2-i1+1);
 Until i=Length(S);

 { Поиск самого длинного слова }
 Max:=0;
 For i:=1 to Nw do
  if Length(W[i])>Max then
   begin
    Imax:=i;
    Max:=Length(W[i]);
   end;

{ Вывод на экран }
 WriteLn('The longest word is "'+W[Imax]+'"');
 Readln
END.