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

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 ReadlnString.Select(t -gt; LowCase(t) in ['а', 'б'] ? 2 * t : t)

     .JoinIntoString('').Println

end.

А роза свалилась на лапу Азора

АА розаа упаалаа наа лаапу ААзораа

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.