Наименьшее и наибольшее слова строки

uses crt;
var s,s1,smn,smx:string;
    n,mx,mn,i,j:byte;
begin
writeln('Введите строку из слов разделенных пробелами');
readln(s);
s:=' '+s;
n:=length(s);
mn:=255;
mx:=0;
i:=2;
while i<=n do
if(s[i]<>' ')and(s[i-1]=' ')then
 begin
  s1:='';
  j:=i;
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)<mn then
   begin
    mn:=length(s1);
    smn:=s1
   end;
  if length(s1)>mx then
   begin
    mx:=length(s1);
    smx:=s1
   end;
  i:=i+length(s1);
 end
else i:=i+1;
writeln('Слово минимальной длины: ',smn);
writeln('Слово максимальной длины: ',smx);
end.

uses crt;
var s,s1,smn,smx:string; //строка, вырезанное слово, минимальное и максимальное
    n,mx,mn,i,j:byte; //длина строки, максимум, минимум, счётчики
begin
{ввод текста}
writeln('Введите строку из слов разделенных пробелами');
readln(s);
s:=' '+s; //для сподручности поиска. чтоб для первого слова костыли не городить, а универсально находить отметку начала слова
n:=length(s);
mn:=255; //начальная минимальная длина слова
mx:=0; //начальная максимальная длина слова
i:=2;
while i<=n do //пока не конец строки
if(s[i]<>' ')and(s[i-1]=' ')then //если начало слова
 begin
  s1:=''; //очищаем вырезанное
  j:=i; //ищем конец слова от данной позиции
  while(j<=n)and(s[j]<>' ') do //ищем конец слова (или строки)
   begin
    s1:=s1+s[j]; //переносим побуквенно во временное хранилище
    j:=j+1;
   end;
  if length(s1)<mn then //проверяем, меньше ли вырезанное уже хранимого
   begin
    mn:=length(s1); //если да - перезаписываем показатели
    smn:=s1
   end;
  if length(s1)>mx then //аналогично
   begin
    mx:=length(s1);
    smx:=s1
   end;
  i:=i+length(s1); //после прохода слова переходим к его концу
 end
else i:=i+1; //если не конец слова, переходим к следующему символу
writeln('Слово минимальной длины: ',smn);
writeln('Слово максимальной длины: ',smx);
end.