Вывести массив так, чтобы его элементы следовали в алфавитном порядке

uses crt;
var a,b:array[1..100] of char;
    n,m,i,j:byte;
    c:char;
begin
clrscr;
randomize;
write('Введите размер массива от 2 до 100 n=');
readln(n);
writeln('Исходный массив А');
for i:=1 to n do
 begin
  a[i]:=chr(65+random(26));
  write(a[i]:2);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  c:=a[i];
  a[i]:=a[j];
  a[j]:=c;
 end;
writeln('Массив А в алфавитном порядке');
m:=0;
for i:=1 to n do
 begin
  write(a[i]:2);
  if(i>1)and(a[i]=a[i-1])and((a[i]<>a[i+1])or(i=n)) then
   begin
    inc(m);
    b[m]:=a[i];
   end;
 end;
writeln;
if m=0 then write('Повторяющихся элементов нет')
else
 begin
  writeln('Повторяющиеся элементы');
  for i:=1 to m do
  write(b[i]:2);
 end;
readln
end.

var
  a: array [1..100] of Char;
  c: array ['A'..'Z'] of Integer;
  n, i: Integer;
  e: Char;
begin
  repeat Write('N [1-',High(a),']: '); ReadLn(n); until (n>=1) and (n<=High(a));
  for i:=1 to n do a[i]:=Chr(Ord('A')+Random(26));
  for i:=1 to n do Inc(c[a[i]]);
  WriteLn('A ='); for i:=1 to n do Write(a[i]); WriteLn;
  WriteLn('A''='); for e:=Low(c) to High(c) do if c[e]>0 then Write(e); WriteLn;
  WriteLn('B ='); for e:=Low(c) to High(c) do for i:=2 to c[e] do Write(e); WriteLn;
end.