Cho dãy số a1..an . sắp xếp dãy số tăng dần Cảm ơn!

program ct;

uses crt;

var a:array[1..10000]of integer;

i,n:integer;

begin

write(‘nhap n : ‘);

readln(n);

for i:=1 to n do begin

write(‘nhap a[‘,i,’] : ‘);

readln(a[i]);

end;

for i:=1 to n-1 do 

  for j:=i to n do 

    if a[i]>a[j] then begin

          doi:=a[i];

          a[i]:=a[j];

          a[j]:=doi;

end;

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

readln;

end.