Переставить местами слово с минимальной длиной и последнее слово - Turbo Pascal - Ответ 1431820

uses wincrt;
var
       n : array[1..100] of byte;
       s : string[100];
    i, m : byte;
      s1 : array [1..20] of string[20];
 
   s_min,
   s_max : string[20];
                                                   {  перемещает наименьшее и найболшее слова местами }
   k_min,
   k_max,
     min,
  max, j : byte;
 
 
 begin
 
  writeln('Введите строку : ');  readln(s);
 
    s:= s + ' ';
    m:= ord( s[0] );
  min:= 100;
    j:= 1;
                                               {                                     }
   for i:= 1 to m do                           {                                     }
    begin                                      {                                     }
         s1[j] := s1[j] + s[i];                {   pазбиваем строку на массив слов   }
          n[j] := i;                           {                                     }
                                               {                                     }
         if s[i] = ' '                         {                                     }
            then                               {                                     }
                j:= j + 1;
    end;
 
    for i:= 1 to j-1 do
      begin
 
           if length( s1[i] ) > max
              then
                  begin
                      s_max := s1[i];                          {   максимальное длинной слово    }
                        max := length( s1[i] );                 {     длинна макс. дл. слова      }
                      k_max := n[i] - max + 1;                   {       позиция макс. дл. слова   }
                  end;
 
            if length( s1[i] ) < min
              then
                  begin
                      s_min := s1[i];                            {    минимальное длинной слово  }
                        min := length( s1[i] );                   {          длинна               }
                      k_min := n[i] - min + 1;                     {         позиция               }
                  end;
 
       end;
 
 
  delete(s, k_max, max);
     insert(s_min, s, K_max);
 
  if k_min < k_max
 
     then
         begin
             delete(s, k_min, min);
               insert(s_max, s, K_min);
         end
 
     else
         begin
             delete(s, k_min - (max - min), min);
               insert(s_max, s, k_min - (max - min));
          end;
 
  writeln(s);
 
 
end.