Программирование. Найти слово минимальной длины.

Uses crt;

Var s, p:string; i, k, min, max, x, y:integer;

Begin

ClrScr; Write ('Input string:') ; Readln (s) ;

min:=length (s) ;

For i:=1 to length (s) do

If not (s[i]=' ') and not (i=length (s)) then p:=p+s[i] else{выделяем слова}

Begin

If i=length (s) then p:=p+s[i];

If length (p) >max then

Begin

max:=length (p) ; x:=Pos (p, s) ; {находим самое длинное слово и его позицию}

End;

If length (p) Begin

min:=length (p) ; y:=Pos (p, s) ; {находим самое короткое слово и его позицию}

End;

p:=''; inc (k) ;

End;

Writeln ('Words:', k) ; {вывод кол-ва слов}

Writeln ('Long:', x,' Short:', y) ;

Readln;

End.