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

Что такое буковка "Ch" ?

Любая буковка, вводимая с клавиатуры. Это просто в var будет.

Ch буква; Ch:char.

а где находятся эт буковкы, после которыхнужно вставлять?.. откуда берётся начальный текст?

Вводится.

Как строчка. Как разумею, тут string используется)

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 igt;0 do begin
      str2:=str2+copy(str,1,i)+str1;
      delete(str,1,i);
      i:=pos(ch,str);
    end;
    writeln('Результирующая строчка: ',str2);
        readln;
end.