Giúp em vs mọi người nhập vào một mảng số nguyên rồi sắp xếp theo thứ tự tăng dần

program bai_giai;

uses crt;

var a:array[1..1000]of longint;tam,i,n: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

   tam:=a[i];a[i]:=a[j];a[j]:=tam;

   end;

for i:=1 to n do write(a[i],' ');

readln

end.

code pascal:

program bai_tap;
uses crt;
var A:ARRAY[1..100000] of longint;
i,i1,n,tg:longint;
begin
clrscr;
write('nhap n:');
read(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
read(A[i]);
end;
for i:=1 to n-1 do
for i1:=i+1 to n do
if A[i] > A[i1] then
begin
tg:=A[i];
A[i]:=A[i1];
A[i1]:=tg;
end;
write('Day sau khi sap xep tang dan la ');
for i:=1 to n do
write(A[i],' ');
readln;
readln
end.