{* Самое короткое и самое длинное слово в строке *}

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

Program z24;

Uses z24.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 *}< ... Читать дальше »