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

Question

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

Answer 1

Program gt;
var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],a[i]);
end;
end.

Answer 2

Var s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
end.