Задача по информатике в Паскале, помогите, пожалуйста

Question

Составьте алгоритм, который каждую встреченную в слове букву "б" заменял бы сочетанием букв "ку". Если такого символа нет, то выведите соответствующее сообщение. Выведите полученную строку на экран 
 
Заранее спасибо!

Наталья · Accepted Answer

Вот простейший код, менять строку не стал (в задании это явно не указано) , выводил сразу. 
 
program change; 
var 
s:string; 
i:word; 
begin 
write('Введите строку: '); readln(s); 
 
if pos('б',s)=0 then writeln('В строке нет букв "б"!') else 
 
for i:=1 to length(s) do 
if s[ i ]='б' then write('ку') else write(s[ i ]]);