процедуры и функции.....

[Грета]

Помогите пожалуйста.задание такое: Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами. Найти длину самого короткого слова.

создать программу на турбо паскаль с помощью процедур или функции.


есть программа:


Program my; ^
¦var ¦
¦ s: string; -
¦ c, wl, wlmin, sl: integer; -
¦ inword: boolean; -
¦begin -
¦ write('string? '); -
¦ readln(s); -
¦ c := 1; -
¦ sl := length(s); -
¦ inword := false; -
¦ wlmin := sl; -
¦ while c <= sl do begin -
¦ if not inword and (s[c] <> ' ') then begin -
¦ inword := true; -
¦ wl := 0; -
¦ end; -
¦ if inword and (s[c] <> ' ') then -
¦ inc(wl); -
¦ if inword and ((s[c] = ' ') or (c = sl)) then begin -
¦ if wl < wlmin then Ў
L======= 1:1 =====<¦--------------------------------------------------------->--
F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu
File Edit Search Run Compile Debug Tools Options Window Help
г=[¦]============================= 829D~1.PAS ===========================1=[¦]=¬
¦ wl := 0; ^
¦ end; -
¦ if inword and (s[c] <> ' ') then -
¦ inc(wl); -
¦ if inword and ((s[c] = ' ') or (c = sl)) then begin -
¦ if wl < wlmin then -
¦ wlmin := wl; -
¦ inword := false; -
¦ end; -
¦ inc(c); -
¦ end; -
¦ writeln('min word length: ', wlmin); ¦
¦end. -
¦


не пойму что не так...........

[ByAlex]

Вот версия для латиницы -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Str:string;
  min,temp,i:Integer;
begin
  Write('Vvedite stroku - ');
  Readln(Str);
  min:=Length(Str);
  for i:=1 to Length(Str) do
  begin
    if Str[i] in ['a'..'z'] then
      inc(temp)
    else
    if Str[i]=' ' then
    begin
      if temp>=0 then
        if temp<min then
          min:=temp;
      temp:=0;
    end;
  end;
  write('Min = ',min);
  readln;
end.

[Грета]

большое спасибо,подругу мою выручили.спасибо)