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

Var

s, str1:string;

ch:char;

i:integer;

begin

Write ('Введите текст: ') ; ReadLn (s) ;

Write ('Введите искомый символ: ') ; Readln (ch) ;

Write ('Введите добавляемый текст: ') ; Readln (str1) ;

for i:=Length (s) downto 1 do

if s[i]=ch then Insert (str1, s, i+1) ;

Writeln ('Результат: ', s) ;

Readln;

end.

Тестовое решение:

Введите текст: А роза упала на лапу Азора

Введите искомый символ: а

Введите добавляемый текст: 12345

Результат: А роза12345 упа12345 ла12345 на12345 ла12345 пу Азора12345

program Project4;

var ch:char; str, str1, str2:string; i:integer;

begin

writeln ('Введите исходный текст:') ;

readln (str) ;

writeln ('Введите строку которую нужно вставить:') ;

readln (str1) ;

writeln ('Введите символ после которого нужно вставить:') ;

readln (ch) ;

str2:='';

i:=pos (ch, str) ;

while i>0 do begin

str2:=str2+copy (str, 1, i) + str1;

delete (str, 1, i) ;

i:=pos (ch, str) ;

end;

writeln ('Результирующая строка: ', str2) ;

readln;

end.