В заданном слове каждую букву «б» замените буквосочетанием «ку» — Pascal(Паскаль)

program m1;
var
s:string;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i]='б' then
 begin
   insert('ку',s,i);
   delete(s,i+2,1);
 end;
writeln(s);
end.