zadach152.PAS

{* Задача 152 *}

Unit ZADACH152;
Interface
Implementation
Begin
 writeln('Определить самое короткое и самое длинное слово в строке введённой с клавиатуры ');
End.

Program pas13526;

Uses zadach152.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  i   : longint;
  l   : longint;
  min : longint;
  max : longint;
  p1  : longint;
  p2  : longint;
  j   : longint;
  a   : String;
  b   : String;
  t1  : Array[1..60] Of String;
  t2  : Array[1..60] Of longint;
Begin
  clrscr; {* Очистка экрана *}
  textcolor(11); {* Установить Светло-сине-зеленый цвет текста *}
  write('введите текст: ');
  readln(a);
  l := length(a) + 1;
  a[l] := ' ';
  For i := 1 To l Do {* Увеличиваем i от 1 до l с шагом 1 *}
    If a[i] = ' ' Then
    Begin
      inc(j); {* Увеличиваем j на 1 *}
      t1[j] := b;
      t2[j] := length(b);
      b := '';
    End;
    Else b := b + a[i];
      max := t2[1];
  min := t2[1];
  p1 := 1;
  p2 := 1;
  For i := 1 To j Do {* Переменная i увеличивается с 1 до j *}
  Begin
    If maxt2[i] Then
    Begin
      min := t2[i];
      p2 := i;
    End;
    
  End;
  writeln('самое длинное слово: ', t1[p1]);
  writeln('самое короткое слово: ', t1[p2]);
  textcolor(13); {* Розовый текст *}
  write('P.S.');
  writeln(' Если слово не выведено на печать, то вы ');
  write(' поставили несколько подряд идущих пробелов!');
  readln; {* Приостановка программы. Ожидание Enter *}
End.