Задача на работу со строкой

[Wefast]

1)Програма которая вводит с клавиатуры строку и находит длину самого короткого слова(слова-группа символов разделеные пробелами)
2) Программа , вводит с клавы строку и удаляет лишние пробелы

В общем надо что бы все это было в одной програме.

[Анатоль]

1ую часть напишу.
min := 1000000000;
for i := 1 to length(s) do
if s[i] = ' ' then
begin
if min > sc then
sc := min;
sc := 0;
end
else
inc(sc);

[Alex_FF]

лишние пробелы это что?

[Wefast]

Если два и более пробелов - то они уже лишние, надо один оставить пробел после слова.

[пауэрлифтинг]

var s: string; i,k,min: byte;
begin
readln(s);
i:=1;
min:=255;
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);

while i<length(s) do
begin
k:=0;
if  not (s[i] in [' ',',','.',#0]) then
begin
repeat
inc(i);
inc(k);
until  (s[i] in [' ',',','.',#0]) ;
if k<min then min:=k;
end;
inc(i);
end;
writeln(s);
writeln(min);
readln
end.

[пауэрлифтинг]

while pos('  ',s)<>0 do delete(s,pos('  ',s),1);

- удаляютса подряд идушие 2 и более пробела