Viết chương nhập một dãy số từ 1-10 và in dãy số đó theo giá trị giảm dần? Giúp giải với cm

uses crt;
var a:array[1..10]of longint; i,j,t:longint;
begin
clrscr;
   for i:=1 to 10 do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
         for j:=1 to i do
            if a[i]>a[j] then
               begin
                  t:=a[i]; a[i]:=A[j]; a[j]:=t;
               end;
      end;
   for i:=1 to 10 do write(a[i],’ ‘);
readln;
end.