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

[art88]

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

[Altair]

Проверь так те пойдет?

program WordLen;
var
	i : integer;{counter "for"}
	n : integer;{length of word}
	min : integer;{min of array}
   s : string;
   ok : Boolean;
function WordLength(i : integer) : integer;
begin
   n := 0;
	while (s[i] <> ' ') and (i <= length(s)) do begin
   inc(i);
   inc(n);
   end;
   wordlength := n;
end;
begin
   {Entering of string}
   	writeln('Please, enter string');
   	readln(s);
   i := 1;
   n := 0;
   while s[1]=' ' do delete(s,1,1);
   if s='' then begin
    writeln('string is empty');
    readln;
    halt;
   end;
   if pos(' ',s)=0 then
   begin
    writeln('1 word');
    readln;
    halt;
   end;

   min := length(s);
   {Checking of words}
      ok := true;
   	while (i <= length(s)) do begin
   		if s[i] <> ' ' then  begin
         	if WordLength(i) < min then
            	min := WordLength(i)
            else if WordLength(i) = min then
            ok := false;
         	i := i + WordLength(i);
      	end
      	else i := i + 1;

   	end;
   {Outputing of length}
      if ok then
   		writeln(min)
     else writeln('There is no word with minimal length');
	readln;
end.

но кстати неправ ты. Это твоя прога не по заданию. Она не дает понятие какое слово короткое она длинну мин. выводит а это разные вещи - длинна и слово.
Может одну из наших прог доделать?