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

program zadacha;vars,temp,max,min:string;i,mxp,mnp:integer;beginwriteln('Введите строку...');readln(s);s:=s+' ';temp:='';max:='';min:=s;for i:=1 to length(s) dobeginif s[i]<>' ' thentemp:=temp+s[i];if (s[i]=' ') and (temp<>'') thenbeginif Length(temp)<Length(min) thenbeginmin:=temp;mnp:=i-Length(temp)end;if Length(temp)>Length(max) thenbeginmax:=temp;mxp:=i-Length(temp)end;temp:='';end;end;if max<>'' thenbeginWriteln('Самое длинное: ',max,' Оно начинается с: ',mxp);Writeln('Самое короткое: ',min,' Оно начинается с: ',mnp)endelseWriteLn('В данной строке нет слов!')end.