Developing.ru

Строковые переменные.Составить программу удваивающую каждую букву "б" в заданном тексте (например из слова "баобаб" должно получиться слово "ббаоббабб".)
РЕШИТЬ ЗАДАЧУ С ПОМОЩЬЮ Delphi 7.

for i:= 1 to length(s) do
if (s='б') then s1:=s1+'бб' else s1:=s1+s;