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

[art88]

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

[volvo]

To: Altair
Ты чего? :smoke: :D

var
  s: string;
  i, min:integer;
  curr_len, start: byte;
begin

  min := 255;
  s := 'one two xx  three     four';
  while i <= length(s) do begin

    while (s[i] = ' ') and (i <= length(s)) do inc(i);

    curr_len := 0;
    while (s[i] <> ' ') and (i <= length(s)) do begin
      inc(i); inc(curr_len);
    end;

    if curr_len < min then begin
      min := curr_len; start := i - curr_len;
    end;

  end;
  writeln( copy(s, start, min) );
end.