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

1 2 3 4 5 6 7 8 9 10 11 12 13 uses crt; var    s,s1:string;    i:integer; begin      clrscr;      readln(s);      s1:=;      for i:=1 to length(s) do          s1:=s1+s[i]+s[i];      writeln(s1);      readln; end.