Cho một mảng số thực có N phần tử. Viết chương trình sắp xếp các phần tử của mảng theo thứ tự tăng dần

uses crt;
var i,j,n,t:longint; a:array[1..100000]of longint;
begin
clrscr;
   write(‘Nhap n: ‘);readln(n); 
   for i:=1 to n Do 
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
      end;
   for i:=1 to n 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;
   write(‘Day sau khi sap xep: ‘);
   for i:=1 to n Do write(a[i],’ ‘);
readln
end.