определить меньшее слово в строке считать что все слова разделены пробелами

program zadacha;
var
s,temp,max,min:string;
i,mxp,mnp:integer;
begin
writeln('Введите строку...');
readln(s);
s:=s+' ';
temp:='';
max:='';
min:=s;
for i:=1 to length(s) do
begin
if s[i]lt;gt;' ' then
temp:=temp+s[i];
if (s[i]=' ') and (templt;gt;'') then
begin
if Length(temp)lt;Length(min) then
begin
min:=temp;
mnp:=i-Length(temp)
end;
if Length(temp)gt;Length(max) then
begin
max:=temp;
mxp:=i-Length(temp)
end;
temp:='';
end;
end;
if maxlt;gt;'' then
begin
Writeln('Самое длинное: ',max,' Оно начинается с: ',mxp);
Writeln('Самое краткое: ',min,' Оно начинается с: ',mnp)
end
else
WriteLn('В данной строке нет слов!')
end.