Составить программу, удваивающую буквы "а" и "б" в слове. pascal

var s:string;

i:integer;

begin

write ('Введите строку: ');

readln (s);

for i:=length (s) downto 1 do

begin

if s[i]='а' then insert ('а', s, i);

if s[i]='б' then insert ('б', s, i);

if s[i]='А' then insert ('А', s, i);

if s[i]='Б' then insert ('Б', s, i);

end;

writeln (s);

end.