{* Задача 296 *}

Unit ZADACH296;
Interface
Implementation
Begin
 writeln('Дана символьная строка, содержащая текст, который заканчивается точ¬кой. Найти длину самого короткого слова и самого длинного слова.');
End.

Program pas13682;

Uses zadach296.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Константы *}
  pr = [' ', '.', ', ', '?', '!', ':', '(', ')'];
Var {* Необходимые переменные *}
  s      : String;
  sl     : String;
  slovo  : String;
  slovoo : String;
  i      : integer;
  j      : integer;
Begin
  clrscr; {* Очистка экрана *}
  i := 0;
  writeln('Введите строку символов, оканчивающуюся точкой: ');
  readln(s);
  slovo := s;
  slovoo := '';
  For j := 1 To length(s) Do {* Переменная j увеличивается с 1 до length(s) *}
    If Not(s[j] In pr) Then
      sl := sl + s[j]
    Else Begin
      If length(sl)length(slovoo) Then
        slovoo := sl;
  sl := '';
End;
  writeln('Длина наиболее короткого слова: ', length(slovo));
  writeln('Длина наиболее длинного слова : ', length(slovoo));
  readln
  End...