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.