Получить упорядоченную по убыванию последовательность, состоящую из всех различных членов исходной

Var A,B:array[1..100] of integer;
    i,j,n,m,t:integer;
    f:boolean;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходная');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    m:=0;
    For i:=1 to n do
    Begin
      f:=true;
      For j:=1 to m do
       if A[i]=B[j] then f:=false;
      if f then
      Begin
        inc(m);
        B[m]:=A[i];
      End;
    End;
    For i:=m downto 2 do
     For j:=2 to i do
      if B[j]>B[j-1] then
      Begin
        t:=B[j];
        B[j]:=B[j-1];
        B[j-1]:=t;
      End;
    writeln;
    writeln('Преобразовання');
    For i:=1 to m do
     write(B[i]:4);
    readln;
End.

var i,n:integer;
a,b:array[1..1000] of integer;
 
procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
      
      begin
       readln(n); //читаем колво элиментов
        for i:=1 to n do
         read(a[i]);//читаем элименты
        sort(1,n);//сортим массив а
        for i:=1 to n do
         b[i]:=a[n-i+1];//переписываем из а в b наоборот
        for i:=1 to n do
         write(b[i],' '); //выводим элементы
      end.