[Bargest]

Поиск минимальной длины слова:

Код:

var i,d,min:integer;
     s:string;
...
min:=length(s);
for i:=1 to length(s) do
  begin
    if s[i]<>' ' 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;

Максимальной думаю сам напишешь.

З.Ы. Почаще читай чужие темы, я это уже писал вчера вечером.