Все слова, длина которых больше в 2 раза длины слова max длины, заменить на слово min длины

{Дан текст. Все слова, длина которых больше в 2 раза
длины слова минимальной длины, заменить на слово минимальной длины.}
var
  s,min,s1,t1:string;
  i,kol,t :integer;
begin
  Write('Введите текст: ');
  readln(s);
  s:=s+' ';  min:=s; s1:='';
  For i:=1 to length(s) do
    if s[i]<>' ' then
      s1:=s1+s[i]
    else
      begin
        if (length(s1)<length(min)) and (length(s1)<>0) then
          min:=s1;
        s1:='';
      end;  //нашли слово минимальной длины
   kol:= length(min);//считаем количество символов в минимальном слове
      
     s:=s+' ';  min:=s; s1:=''; t:=2*kol;
     t:=length(t1);//перевели из инсерта в стринг
 For i:=1 to length(t1) do
    if t1[i]<>' ' then
      s1:=s1+t1[i]
    else
      begin
        if (length(min)<length(t1)) and (length(s1)<>0) then
          delete(t); //ошибка, неверное количество фактических параметров.
          insert(min);
      end;
 
      
  Writeln('полученный текст - ',s);
end.

var
  s,min,s1,t1:string;
  i,kol,t :integer;
  d2,k: Integer;
begin
  Write('Введите текст: ');
  readln(s);
  s:=s+' ';  min:=s; s1:='';
  For i:=1 to length(s) do
    if s[i]<>' ' then
      s1:=s1+s[i]
    else
      begin
        if (length(s1)<length(min)) and (length(s1)<>0) then
          min:=s1;
        s1:='';
      end;  //нашли слово минимальной длины
 
   kol:= length(min);//считаем количество символов в минимальном слове
     t:=2*kol;
     t:=length(t1);//перевели из инсерта в стринг
 
d2:=Length(t1);
  Repeat
    k:=Pos(t1,s);
    If k<>0 then
    begin
      Delete (s,k,d2);
      Insert(min,s,k);
    end;
  Until k=0;
  WriteLn('Полученный текст: ');
  WriteLn (s);
end.

var
  s,min,s1:string;
  i,j,k,d,t :integer;
begin
Write('Введите текст: ');
readln(s);
s:=' '+s+' ';
min:=s;
s1:='';
For i:=1 to length(s) do
if s[i]<>' ' then  s1:=s1+s[i]
else
 begin
  if (length(s1)<length(min))and(length(s1)>0) then min:=s1;
  s1:='';
 end;  //нашли слово минимальной длины
writeln('Слово минимальной длины= ',min);
d:=length(min);//длина миниального слова
t:=2*d;//длина слов, которые меняем
i:=1;
while i<length(s) do
if (s[i]<>' ')and(s[i-1]=' ') then //начало слова
 begin
  j:=i;
  k:=0; //длина слова
  while(j<length(s))and(s[j]<>' ') do//пока не конец и не пробел
   begin
    j:=j+1;//идем вперед
    k:=k+1;///считаем буквы
   end;
  if k=t then //если длина подходит
   begin
    Delete (s,i,k);//удалим слово
    Insert(min,s,i);//вставим мин
    i:=i+d;//перешагнем через мин
   end
  else i:=i+k;//иначе перешагнем через слово
 end
else i:=i+1;//пропустим пробелы
s:=trim(s);//уберем пробелы в начале и конце
WriteLn('Полученный текст: ');
WriteLn (s);
end.