Самое короткое слово в строке Опции

[art88]

Задача такова:
Дана строка, найти в ней самое короткое слово (словами называются последовательности символов разделённые пробелами).
------------------------------------------------------------------------
Пожалуйста проверте моё решение этой задачи: она постоянно выводит ноль.
------------------------------------------------------------------------
Заранее спасибо

[greenday]

Сорри, что поднял такую старую тему, просто меня интерисует тоже самое, т.е. поиск самого короткого слова в строке. я решал не много по другому, у мен получилось вот что:

Код

program MINWORD;
uses crt;
var
  s: string;
  min,i: integer;
begin
clrscr;
write('VVEDITE PREDLOZHENIE ');
read(s);min:=256;
repeat
i:=pos(' ',s);
delete(s,1,i);
if (i-1 < min) and (i > 1) then min:=i-1;
until i=0;
write('Samoe korotkoe slovo = ',min);
readkey;
end.

но это выводит только длину мин. слова. про copy я знаю, но не могу понять куда и как приписать счетчик чтобы он позицию считал. вообщем, помогите плиз, доделать мою прогу. надо чтобы выводил именно слово.
заранее спс)

[volvo]

про copy я знаю, но не могу понять куда и как приписать счетчик чтобы он позицию считал.

Плохой способ избрал вообще-то. Удаляешь символы из строки - строку придется дублировать. Ну, как знаешь:

program MINWORD;
uses crt;
var
  s, st: string;
  min,i: integer;

  k, p:integer;
begin
  clrscr;
  write('VVEDITE PREDLOZHENIE ');
  read(st);

  s := st;
  min := 256; k := 0;
  repeat
    i := pos(' ', s);
    delete(s, 1, i);
    inc(k, i);
    if (i-1 < min) and (i > 1) then begin
      min := i-1;
      p := k-i+1;
    end;
  until i=0;

  write('Samoe korotkoe slovo = ',min, ' : ', copy(st, p, min) );
  readkey;
end.