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

такое решение не очень подходит, потому что такие функции мы еще не проходили

Ну это Ваша проблема, верно? Вы же не указали, как именно Вам нужно.

спасибо

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 ReadlnString.Select(t -> 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.