 EpicKsushaGames 
                                                30.07.2019 14:00
                                                
                                                EpicKsushaGames 
                                                30.07.2019 14:00
                                             s1mple72 
                                                30.07.2019 16:40
                                                
                                                s1mple72 
                                                30.07.2019 16:40
                                             angelok200332 
                                                29.06.2019 04:30
                                                
                                                angelok200332 
                                                29.06.2019 04:30
                                             тооироь 
                                                11.09.2020 13:48
                                                
                                                тооироь 
                                                11.09.2020 13:48
                                             Anna256829 
                                                20.05.2020 12:52
                                                
                                                Anna256829 
                                                20.05.2020 12:52
                                             Vladislav45609 
                                                20.05.2020 12:52
                                                
                                                Vladislav45609 
                                                20.05.2020 12:52
                                             Pro100egor4ik2000 
                                                20.05.2020 12:52
                                                
                                                Pro100egor4ik2000 
                                                20.05.2020 12:52
                                             samirsamir21ozrrps 
                                                20.05.2020 12:52
                                                
                                                samirsamir21ozrrps 
                                                20.05.2020 12:52
                                             danisimokuvshn 
                                                20.05.2020 12:52
                                                
                                                danisimokuvshn 
                                                20.05.2020 12:52
                                            
program z1;
var s,s1:string;
i:integer;
begin
readln (s);
s1:=s;
for i:=1 to length (s1) do
if s1[i]='а' then
begin
delete(s1,i,1);
s1:='а'+s1
end;
writeln(s1);
end.
Объяснение:
Программа переставляет только русские строчные а.