строки

[zenid]

Дана строка, содержащая текст. Найти длину самого короткого слова и его порядковый номер.
длину самого короткого слова я нашел,подскажите а как найти порядковый номер, напишите пожалйста код:
var
s:string;
small,i,n,k,t: integer;
begin
k:=0;
readln(s);
k:=0;
n:=length(s);
i:=1;
t:=0;
while (i<=n) do begin
if (s[i]) <>' ' then t:=t+1 else begin
if t<small then small:=t;
t:=0;
end;
i:=i+1;
end;
end;
writeln(small);
end.

[Mad_Cat]

const
  dividers = [' '];
var
  s,temp: string;
  i,k,lmin,km: integer;
begin
  writeln('s:');
  ReadLn(s);
  temp:='';
  lmin := Length(s);
  k:=0; km:=0;
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = Length(s))) and (temp <> '') then
    begin
    inc(k);
      if Length(temp) < lmin then begin
        lmin := Length(temp); km:=k;end;

      temp := '';
    end
  end;
  WriteLn('Длина самого короткого: ', lmin, ' его номер ' ,km);
end.

[zenid]

спасибо огромное...!

[zenid]

а что такое dividers?

[Mad_Cat]

dividers

множество разделителей слов

[zenid]

скажите пожалуйста в чем ошибка в исправленной программе если программа не правильно считает Длину самого короткого слова.

[zenid]

пожалуста помогите.....!

[Mad_Cat]

Результат

s:
Дана строка содержащая текст найти длину самого короткого слова и его порядковый номер
Длина самого короткого: 1 его номер 10

В чем не правильность?
еще пример

s:
если бы не было тебя
Длина самого короткого: 2 его номер 2

[zenid]

ввел вашу программу у меня всегда почему то выводит длину слова больше на 1 символ, незнаю почему, может он считает пробел?