Есть ошибка в коде программы на строки. Выполняются не все условия - PascalABC.NET

Формулировка задачи:

Нужно написать программу, которая будет добавлять элемент с1, после каждой встречи элемента с2 в строке. Есть два примера, по первому срабатывает как надо, а вот по второму нет. Делает лишнее дублирование. Подскажите как дополнить цикл, чтобы такого не было. Пример. Вход: a b abc Выход: abac Вход: b b abc Выход: abbc

program stroka;
 
var
  s, c1, c2: string;
  i: integer;
 
begin
  
  readln(c1);
  readln(c2);
  readln(s);
  
  // проверяем каждый сивол строки с первого по последний
  for i := 1 to length(s) do 
  begin
    
    // если символ равен заданной букве то делаем следующее
    if s[i] = c2 then begin
      
      //вставляем в строку заданный символ в позицию после заданной буквы
      insert(c1, s, i + 1);
    end;
  end;
  writeln(s);
end.

Решение задачи: «Есть ошибка в коде программы на строки. Выполняются не все условия»

Листинг программы

begin
  var c1:=ReadlnChar;
  var c2:=ReadlnChar;
  ReadString.Replace(c2, c2+c1).Print
end.

Объяснение кода листинга программы

В данном коде на языке PascalABC.Net выполняется замена одной строки на другую с использованием функции Replace. Список действий в коде:

В первой строке объявляются две переменные типа char c1 и c2, которые получают значения из файла ввода с помощью функции ReadlnChar.
Значение переменной c1 присваивается переменной c2.
В третьей строке вызывается функция Replace, которая заменяет в строке, хранящейся в переменной c2, все вхождения символа c1 на строку c1+c1.
Результат замены выводится на экран с помощью функции Print. Таким образом, если в файле ввода есть два одинаковых символа, то они заменяются на три таких же символа. Если в файле ввода есть только один такой символ, то он заменяется на два таких же символа. Если в файле ввода таких символов нет, то на экран выводится исходная строка без изменений.