Сортировка множества букв в алфавитном порядке с использованием ASCII кода на Паскале.

program prog;
uses crt;
type vector = array[1..1000] of char;
var
 a,b,c:vector;
 i,l,m,n:integer;
procedure ShowVector(const a:vector;n:integer);
var
 i:integer;
begin
    for i := 1 to n do
    write(a[i]:4);
writeln;
end;
procedure ReadVector(var a:vector;n:integer);
var
 i:integer;
begin
    writeln('Vvedite elementi massiva');
    for i := 1 to n do
    begin
        write('a[',i,']=');readln(a[i]);
    end;
writeln;
end;
procedure BubbleSort(var Arr : vector; const N : Integer);
var
    I : Integer;
    J : Integer;
    Tmp : char;
begin
   for i:=1 to n do
    begin
        for j:=1 to n-i do
        begin
            if Arr[j]>=Arr[j+1] then
            begin
                Tmp := Arr[j];
                Arr[j] := Arr[j+1];
                Arr[j+1] := Tmp;
            end;
        end;
    end;
end;
procedure CountVector(const a:vector;n:integer);
var
 c:array[0..255] of integer;
 i:integer;
begin
for i := 0 to 255 do
    c[i] :=0;
for i := 1 to n do
    begin
        inc(c[ord(a[i])]);
    end;
for i := 0 to 255 do
 begin
  if c[i]>=2 then
   write(chr(i),' ');
 end;
 writeln;
end;
begin
clrscr;
writeln('Vvedite razmer massiva');
write('n=');readln(n);
ReadVector(a,n);
writeln('Massiv do sortirovki');
ShowVector(a,n);
BubbleSort(a,n);
writeln('Massiv posle sortirovki');
ShowVector(a,n);
writeln('Bukvi kotorie vstreciaiutsia bolee 2-h raz');
CountVector(a,n);
readln;
end.