Найти длину самого короткого слова

[de_coder]

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти длину самого короткого слова.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=11069

[de_coder]

var
  s, s1, smin: string;
  i: integer;
begin
  cls;
  write('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do
    if (s[i] <> ' ') and (s[i + 1] = ' ') then begin
      s1 := s1 + s[i];
      if length(smin) < length(s1) then smin := s1;
      s1 := '';
    end
  else if s[i] <> ' ' then s1 := s1 + s[i];
  i := length(s1);
  write('Самое короткое слово состоит из ', i, ' букв');
end.

Что у меня неправельно? Находит длину только последнего слова!

[BDA]

var
  s, s1, smin: string;
  i: integer;

begin
  write('Введите строку: ');
  readln(s);
  smin := s;
  s1 := '';
  for i := 1 to length(s) do
    if s[i] <> ' ' then s1 := s1 + s[i]
   	else
    begin
      if (length(smin) > length(s1)) and (length(s1) > 0) then 
        smin := s1;
      s1 := '';
    end;
  if (length(smin) > length(s1)) and (length(s1) > 0) then smin := s1; 
  write('Самое короткое слово состоит из ',  length(smin), ' букв');
  readln;
end.

BDA, когда несколько пробелов, то не находит!

Исправлено.

Ошибочка
Цитата:
Введите строку: паскаль сиплюсплюс си
Самое короткое слово состоит из 7 букв

Исправлено (зря перенес begin).

[de_coder]

BDA, когда несколько пробелов, то не находит!

[de_coder]

Ошибочка

Введите строку: паскаль сиплюсплюс си
Самое короткое слово состоит из 7 букв

[de_coder]

BDA, спасибо.