[Bargest]

Да, и поиск минимума надо чуток изменить.

Код:

for i:=1 to length(s) do
  begin
    if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
    begin
      d:=d+1;
      f:=true;
    end
    else
    begin
     if (min>d) and f then
     begin
       min:=d;
       f:=false;
     end;
     d:=0;
    end;
  end;