Найти самое короткое и длинное слова и указать позиции на паскале

[Klik_1602]

Помогите решить задачку на Паскале: В заданном предложении найдите самое короткое и самое длинное слова и укажите позиции, с которых они начинаются (слова в предложении разделены пробелом).

[MoBLer]

Вот

var
s,b,max,min:string;
i,m,k:integer;
ss:array[1..255] of string;
begin
readln(s);
b:=s+' ';
s:=s+' ';
max:=''; min:=s;
m:=length(s);
i:=1; k:=0;
while m>1 do
begin
k:=k+1;
ss[i]:=copy(s,1,pos(' ',s));
s:=copy(s,pos(' ',s)+1,length(s)-length(ss[i]));

if length(ss[i])>length(max) then max:=ss[i];
if length(ss[i])<length(min) then min:=ss[i];
i:=i+1;;
m:=length(s);

end;
writeln('max slovo=',max,' na ',pos(max,b), ' meste');
writeln('min slovo=',min,' na ',pos(min,b), ' meste');
readln;
end.

[Klik_1602]

прога работает нормально, находит и мин и макс слова. но позиция высчитывается неверно, что делать?

[MoBLer]

напиши пример

[Klik_1602]

пример : на чердаке в углу
результат: max slovo=cherdake na 4 meste
min slovo=v na 12 meste

[MoBLer]

а что должна вывести?

[Klik_1602]

пробел же тоже считается? тогда всё ясно) спасиб большое, очень помог!