Nhập vào số N,sắp xếp các chữ số trong số N theo thứ tự giảm dần

program sapxep;

uses crt;

var A:array[1..20] of byte;

      n:longint;

      i,j,tg,d:byte;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       d:=0;

       while n>0 do

              begin

                     d:=d+1;

                     A[d]:=n mod 10;

                     n:=n div 10;

              end;

       for i:=1 to d-1 do

              for j:=i+1 to d do

              if A[i]<A[j] then

                     begin

                            tg:=A[i];

                            A[i]:=A[j];

                            A[j]:=tg;

                     end;

       for i:=1 to d do write(A[i]);

       readln;

end.