for i:=Length(s) downto 1 do//просматриваем текст с конца(обязательно)
if s[i]='Б' then
begin
delete(s,i,1);//удаляем Б
insert('ку',s,i);//вставлем ку
end;