VXT nhập vào 1 mảng rồi in ra dãy đó sau khi sắp xếp tăng dần

program sap_xep_tang_dan;
  uses crt;
    var a:array [1..100] of longint;
    var n, d, i, j, t, k: longint;
begin
 clrscr;
  write (‘nhap so phan tu cua day so: ‘);  readln (n);
  writeln (‘nhap day so: ‘);
  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+1 to n do
     if a[i]>a[j] then
       begin
         t:=a[i];
         a[i]:=a[j];
         a[j]:=t;
       end;
  writeln (‘day so sau khi sap xep: ‘);
  for i:=1 to n do
   write (a[i],’   ‘);
 readln;
end.