Напишите программу, которая во введенном предложении меняет местами слова минимальной и максимальной длины.

uses crt;
var s,sl,smin,smax: string;
    i,dmin,dmax,imax,imin: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmin:=length(s);dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if (length(sl)<dmin) and (length(sl)<>0) then
          begin
          dmin:=length(sl);
          smin:=sl;
          imin:=i-dmin;
          end;
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          imax:=i-dmax;
          end;
       sl:='';
       end;
writeln ('Самое короткое слово "',smin,'" длиной в ',dmin,' символов');
writeln ('Самое длинное  слово "',smax,'" длиной в ',dmax,' символов');
if imax>imin then
   begin
   delete (s,imax,dmax);
   insert (smin,s,imax);
   delete (s,imin,dmin);
   insert (smax,s,imin);
   end else
   begin
   delete (s,imin,dmin);
   insert (smax,s,imin);
   delete (s,imax,dmax);
   insert (smin,s,imax);
   end;
writeln(s);
readkey
end.

uses crt;
var s,sl,smin,smax: string;
    i,dmin,dmax,imax,imin: integer;
begin
write('Введите строку ');                //запрашиваем строку
readln(s);
s:=s+' '; sl:='';dmin:=length(s);dmax:=0;       //к строке добавляем пробел (чтобы при деление на слова последнее не пропало), переменная слова пока пуста, считаю, что минимальное слово и есть строка (просто дальше уже некуда) , длина максимального (вдруг строка пуста) равна 0
for i:=1 to length(s) do                        //в цикле с параметром перебираем символы строки
    if s[i]<>' ' then sl:=sl+s[i]               //если это не пробел, следовательно, буква, следовательно, добавляем ее к слову
       else                                     //иначе (если пробел, то надо переходить к образотке строк)
       begin
       if (length(sl)<dmin) and (length(sl)<>0) then   //если длина слова больше 0 и меньше минимального (значит, мы нашли еще более маленькое слово)
          begin
          dmin:=length(sl);                            //новое значение минимальной длины - длина найденного слова
          smin:=sl;                                    //минимальное слово - текущее слово
          imin:=i-dmin;                                //узнаем, где начало минимального слова - из индекса текущего символа вычитаем длину слова
          end;
       if length(sl)>dmax then                        //если длина больше максимального
          begin
          dmax:=length(sl);                           //макс. длине назначаем макс длине новое значение
          smax:=sl;                                   //помещаем в переменную для макс слова новое слово
          imax:=i-dmax;                               //узнаем, где начало минимального слова - из индекса текущего символа вычитаем длину слова
          end;
       sl:='';                                        //очищаем переменную слова для формирования нового слова
       end;
writeln ('Самое короткое слово "',smin,'" длиной в ',dmin,' символов');
writeln ('Самое длинное  слово "',smax,'" длиной в ',dmax,' символов');
if imax>imin then
   begin
   delete (s,imax,dmax);
   insert (smin,s,imax);
   delete (s,imin,dmin);
   insert (smax,s,imin);
   end else
   begin
   delete (s,imin,dmin);
   insert (smax,s,imin);
   delete (s,imax,dmax);
   insert (smin,s,imax);
   end;
writeln(s);
readkey
end.