Написать программу, которая каждую встреченную букву ‘б’ заменяет сочетанием ‘ку’ — Pascal(Паскаль)

var
s:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i]='b' then
 begin
   insert('ku',s,i);
   delete(s,i+2,1);
 end;
 writeln(s);
end.