Вставить в строку подстроку после определенного слова Паскаль

[art_d]

Например, в строке после каждого слова DOG вставить слово CAT
Добился, чтобы добавлял после первого слова, но никак не могу сделать, чтобы вставлял после всех (т.е. в цикле)

[phomm]

код показывай, разберемся ))

[Летучий_СкилетиК]

после каждого слово вставляется строка С , а там сам дальше думай

uses crt;
var
    b:array[1..100]of string;
    a,c:string;
    l,i:integer;
begin
readln(c);
read(a);
i := 1; l := 0;
while (i <= length(a)) do
begin
     while ((i <= length(a)) and (a[i] = ' ')) do
           inc (i);
     inc(l);
     b[l]:='';
     while ((i <= length(a)) and (a[i] <> ' ')) DO
     begin
          b[l]:=b[l]+a[i];
          inc (i);
     end;
end;
if (b[length(a)] = ' ')then dec(l);
for i:=1 to l do
write(b[i]+c,' ');
end.

[art_d]

uses
crt;
var input_str, outputsrt,word_input,word2: string;
a,len_inp_w:integer;
begin

clrscr;
word_input:=('111');
word2:=('kkk');
input_str:=('bbbb kkkk bbbb kkkkbbbkkk');
word_input:=' '+word_input+' ';
a:=Pos(word2,input_str);
len_inp_w:=Length(word2);
Insert(word_input,input_str,a);
 writeln(input_str);
end.

Что то типо того, но как сделать, чтобы программа искала бы ВСЕ слова (word2) в строке (input_str) и заменяло бы на (word_input)

есть идеи?

[Летучий_СкилетиК]

Сообщение от art_d

есть идеи?

я вам выше привел код! чем ни вариант? неужели трудно пару строк кода изменить?!

uses crt;
var
    b:array[1..100]of string;
    a,word_, word_input:string;
    l,i:integer;
begin
writeln('Input text');
readln(a);

writeln('Input word');
readln(word_);

writeln('Input word_input');
readln(word_input);

i := 1; l := 0;
while (i <= length(a)) do
begin
     while ((i <= length(a)) and (a[i] = ' ')) do
           inc (i);
     inc(l);
     b[l]:='';
     while ((i <= length(a)) and (a[i] <> ' ')) DO
     begin
          b[l]:=b[l]+a[i];
          inc (i);
     end;
end;
if (b[length(a)] = ' ')then dec(l);
for i:=1 to l do
if b[i] = word_ then b[i]:=word_input;

for i:=1 to l do
   write(b[i],' ');
end.

[art_d]

Большое спасибо, сделал, но в АВЦ паскаль запускается, а в турбо паскале никак
Задача немного поменялась, в строке ищем слово и после этого слова вписываем еще одно слово (через модуль)

program Lab2;
uses LAB3U;

var
 InputString, srt_out: StrData;
 WordOut, WordIn: StrData;
 OutputString: StrData;

begin
  writeln('ВВедите строку');
  readln(InputString);
  writeln('ВВедите слово, после которого надо вставить другое слово');
  readln(WordOut);
  writeln('Введите слово, которое надо вставить');
  readln(WordIn);
   Inp( InputString, WordOut, WordIn);
  if ind<>11 then
  begin
  Writeln( ' результат');
  Writeln(o);
  end
  else
   writeln('слово не найдено');
readln;
 end.

unit LAB3U;
Interface
type StrData = string;
     StrData1 = string;
 var inputstring,WordOut,WordIn,outputt,srt_out,a,o: string;
 i,len,ind:integer;
procedure Inp (Inputstring : StrData; WordOut:strData;  var WordIn: StrData1 );
implementation
procedure Inp (Inputstring : StrData; WordOut:strData;  var WordIn: StrData1 );
 var
    b:array[1..100]of string;
     l,i:integer;
 begin
 if pos(WordOut+' ', Inputstring)>0 then
 begin
  i := 1; l := 0;
  while (i <= length(Inputstring)) do
    begin
     while ((i <= length(Inputstring)) and (Inputstring[i] = ' ')) do
     inc (i);
     inc(l);
     b[l]:='';
     while ((i <= length(Inputstring)) and (Inputstring[i] <> ' ')) DO
       begin
            b[l]:=b[l]+Inputstring[i];
            inc (i);
       end;
    end;
 if (b[length(Inputstring)] = ' ')then dec(l);
 for i:=1 to l do
 if b[i] = WordOut then b[i]:=(WordOut) + ' ' + (WordIn);
 for i:=1 to l do
  begin
   a:=(b[i] + ' ');
   o:=o+a;
    end;
end
  else
  ind:=11;
end;
   end.