Mình không biết sắp xếp theo thứ tự nào nên mình làm theo thứ tự tăng dần nhé!

Program SXM;
Uses crt;
Var A:array[1..10000] of longint;
    i,j,n,tg: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]>A[j] then
                        Begin
                                tg:=A[i];
                                A[i]:=A[j];
                                A[j]:=tg;
                        End;
        For i:=1 to n do
        Begin
                Write(A[i]);
                Writeln;
        End;

        Readln
End.

Đây là cách sắp xếp lại mảng A theo thứ tự tăng dần nha!

 Crt;
Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;
N,i,j,c:Integer;

Begin

        Write(‘Nhap N=’);

        Readln(N);

        For i:=1 To N Do
        Begin
              Write(‘A[‘,i,’]=’);

               Readln(A[i]);                  

        End;

    For i:=1 To N-1 Do
    For j:=i+1 To N Do If A[i]>A[j]      Then
      Begin
             c:=A[i]; A[i]:=A[j]; A[j]:=c;

       End;

  Writeln(‘Ket qua sau khi sap xep:’);

    For i:=1 To N Do Write(A[i]:5);      Readln;
End.