Разобраться с ф-ией delete

[art_d]

Задача,дана строка Inputstring, в ней есть слово WordOut, после слова WordOut вставить слово WordIn (текст сожет быть слитным)

len:=pos(WordOut, Inputstring)+length(WordOut);
Insert(WordIn, Inputstring, len);

o:=Inputstring;
a:=Inputstring;
writeln(pos(WordIn,Inputstring)) ;
ind:=pos(WordIn,Inputstring)+ length(WordIn);
writeln(ind);
delete(o,1,pos(WordIn,Inputstring)) ;
writeln(o,' stroka o');
delete(a,pos(WordIn,Inputstring),le ngth(a));
writeln(a,' stroka a');
if pos(WordOut, o)>0 then
begin
len:=pos(WordOut, a)+length(WordOut);
Insert(WordIn, a, len);
end;
c:=a+o;
end
else
ind:=11;

end;


проблема в ф-ии delete, не могу понять почему она удаляет не то, что задаю

[New man]

ххм, обьясните че вы хотите этой прогой сделать

[unbanned]

а не легче

insert(WordIn,Inputstring,pos(WordOut,inputstring)+length(WordOut));

[art_d]

Например, дана строка aabbbaatestooopppopotest, это Inputstring, ввидим слово test это WordOut, вводим WordIn, допустим QQQ, на выходи получаем aabbbaatestQQQooopppopotestQQQ

procedure Inp (Inputstring : StrData; WordOut:strData;  var WordIn: StrData1 );
    begin

 if pos(WordOut, Inputstring)>0 then

  begin
  
   len:=pos(WordOut, Inputstring)+length(WordOut);
   Insert(WordIn, Inputstring, len);

   o:=Inputstring;
   a:=Inputstring;
   writeln(pos(WordIn,Inputstring)) ;
   ind:=pos(WordIn,Inputstring)+ length(WordIn);
   writeln(ind);
   delete(o,1,pos(WordIn,Inputstring));
    writeln(o,' stroka o');
   delete(a,pos(WordIn,Inputstring),length(a));
        writeln(a,' stroka a');
     if pos(WordOut, o)>0 then
       begin
        len:=pos(WordOut, a)+length(WordOut);
        Insert(WordIn, a, len);
       end;
    c:=a+o;
   end
  else
  ind:=11;

 end;
 begin

   end.