Даны строка s и символ b.написать программу, которая удваивает каждое вхождение символа b в строку s желательно написать на python или pascal !

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadlnString('Введите строку:');

 var c := ReadlnString('Какой символ удвоить?');

 s := s.Replace(c, 2 * c);

 s.Println

end.