Первое по порядку самое короткое слово заменить первым по порядку словом, максимальным по длине

uses crt;
var s,s1,s2,s3:string;
    sk,sd:string;
    len,k,d,i,ik,id,f:byte;
begin
clrscr;
writeln('Введите строку из слов, отделенных пробелами:');
readln(s);
s1:=s+' ';//запомним начальную строку, добавим к ней пробел
while pos('  ',s1)>0 do//удалим лишние пробелы, в кавычках 2 пробела
delete(s1,pos('  ',s1),1);//в кавычках 2 пробела
if s1[1]=' 'then delete(s1,1,1);//1 удаляем
s3:=s1;//запомним и эту строку, мы их уничтожим при решении
sd:='';sk:='';//длинное и короткое слова, пока их нет
d:=0;id:=1;//длина длинного слова и его начало в строке
k:=255;ik:=1;//длина короткого слова и его начало в строке
while pos(' ',s1)>0 do//пока есть пробелы
 begin
  len:=pos(' ',s1)-1;//длина очередного слова
  s2:=copy(s1,1,len);//само слово
  if len<k then//если меньше мин., это мин
   begin
    sk:=s2;//запоминем слово
    k:=len;//минимальная длина
    ik:=pos(sk,s);//его начало
   end;
  if len>d then//тоже с максимумом
   begin
    sd:=s2;
    d:=len;
    id:=pos(sd,s);
   end;
  delete(s1,1,pos(' ',s1));//удаляем проверенное слово, следующее первое
 end;
writeln('Самое короткое слово ',sk);
writeln('Самое длинное слово ',sd);
s3:=copy(s3,pos(sk,s3)+k,255);//копируем остаток строки за первым коротким словом
f:=0;//пока второго нет
while pos(' ',s3)>0 do
 begin
  s1:=copy(s3,1,pos(' ',s3)-1);//смотрис слова по порядку
  if length(s1)=k then//если длина равна минимуму
   begin
    f:=1;//есть второе
    break;//дальше не ищем
   end;
  delete(s3,1,pos(' ',s3));//удаляем просмотренное
 end;
if f=0 then writeln('Двух самых коротких слов нет. Текст не меняется.')
else //если есть 2 коротких
 begin
  writeln('Есть два слова минимальной длины.');
  if ik<id then//если короткое впереди длинного
   begin
    insert(sk,s,id);//вставляем короткое перед длинным
    delete(s,id+k,d);//удаляем длинное
    insert(sd,s,ik);//вставляем длинное перед коротким
    delete(s,ik+d,k);//удаляем короткое
   end
  else//если длинное раньше короткого, так же
   begin
    insert(sd,s,ik);
    delete(s,ik+d,k);
    insert(sk,s,id);
    delete(s,id+k,d);
   end;
 end;
write(s);//выводим строку
readln
end.