Viết chương trình nhập vào một mảng gồm 1 số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình Các bạn giúp mình với☹️

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam: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
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

Program bai_tap;

Uses crt;

Var A: array [1..150] of integer;

      i,n, j,t: integer;

Begin

Write ('nhap n=');

Readln (n);

For i:=1 to n do 

begin 

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

For j:=n downto 2 do

For i:=1 to j-1 do

If A[i]> A[i+1] then

begin

t:= A[i];

A[i]:= A[i+1];

A[i+1]:= t;

end;

Writeln ('Day so duoc sap xep la:');

For i:=1 to n do Write (A[i]:6);

Readln

End.