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

[art88]

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

[art88]

:D Я наверное вас уже достал, но всё-таки.
volvo, я немного доделал твою первую программу и всё бы хорошо, но длина первого слова всё время на 1 больше истинной, где ошибка?

var
  s: string;
  i, min:integer;
  curr_len, start: byte;
  c : integer;
  ok : Boolean;
begin
  ok := true;
  readln(s);
  min := length(s);
  while (s[1] = ' ') and (i <= length(s)) do delete(s, 1, 1);
  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;
  inc©;
  if curr_len < min then begin
     min := curr_len;
     ok := true;
  end
  else if min = curr_len then
     ok := false;
  end;
  writeln;
  if (min = 0) or (c <= 1) then
     ok := false;
  if ok then
     writeln(min)
  else
     writeln('There is no word with minimal length');
  readln;
end.

Спасибо!