Дана строка S и символ C. Удвоить каждое вхождение символа C в строку S. — Pascal(Паскаль)

program stroka;
uses crt;
var s:string;
    c:char;
    i:byte;
begin
clrscr;
write('BBEDU CTPOKY: ');
read(s);
for i:=length(s) downto 1 do
begin
if s[i]='c' then insert('c',s,i);
end;
writeln ('HOBA9 CTPOKA: ',s);
readln;
end.