Giúp e bài sx với ạ Nhập vào một mảng,sắp xếp các chữ số của mỗi phần tử theo thứ tự giảm dần

program sap_xep_chuso;

uses crt;

var A:array[1..1000] of integer;

     n,i:integer;

procedure sx(k:integer);

var B:array[1..10] of byte;

      d,j,h,tg:byte;

begin

       d:=0;

       while k>0 do

              begin

                     d:=d+1;

                     B[d]:=n mod 10;

                     n:=n div 10;

              end;

       for j:=1 to d-1 do

              for h:=j+1 to d do

                     if B[j]<B[h] then

                            begin

                                   tg:=B[j];

                                   B[j]:=B[h];

                                   B[h]:=tg;

                            end;

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

       write(' ');

end;

BEGIN

       clrscr;

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

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       for i:=1 to n do sx(A[i]);

       readln;

end.