{* Задача 187 *}

Unit ZADACH187;
Interface
Implementation
Begin
 writeln('Длина самого длинного слова в предложении:');
End.

Program Leng_9;

Uses zadach187.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  MaxL : String;
  C    : String;
  Pb   : Byte;
Begin
  ClrScr; {* Очищаем экран *}
  WriteLn('Введите предложение:');
  ReadLn(C);
  MaxL := '';
  While Pos(' ', C)  0 Do
  Begin
    Pb := Pos(' ', C);
    If Length(MaxL) < Length(Copy(C, 1, Pb - 1)) Then
      MaxL := Copy(C, 1, Pb - 1);
    Delete(C, 1, Pb);
  End;
  If Length(MaxL) < Length(C) Then
    MaxL := C;
  WriteLn; {* Пустая строка *}
  WriteLn('Длина самого длинного слова в предложении:');
  WriteLn(length(MaxL));
  ReadLn; {* Приостановка программы. Ожидание Enter *}
End.