Mảng số thực

Lập trình để:
Nhập một dãy số thực từ bàn phím.
Tính tổng và trung bình cộng của dãy đó.
Tìm max, min trong dãy đó. Sắp xếp dãy đó theo trật tự tăng dần, giảm dần và đưa kết qủa ra màn hình.

                                                                 Giải

Const n=5;
Var a:Array[1..50] of Real; M,Mx,Mn,s,tong, Tmp: Real; j,i,dem: Integer;
BEGIN
       For i:=1 to n do Begin Write('Nhap a(',i,') = '); Readln(a[i]); End;
       Mx:=a[1];Mn:=a[1];s:=a[1];
       For i:=2 to n do s:=s+a[i];
       tong:=s; M:=s/n;
       For i:=2 to n do If a[i]>Mx Then Mx:=a[i]
                                Else Mx:=Mx;
       For i:=2 to n do
       If a[i]<Mn Then Mn:=a[i] Else Mn:=Mn;
       Writeln('=> Tong cong cua day la: S = ',tong:10:1);
       Writeln('   > Trung binh cong cua day la: M = ',M:10:1);
       Writeln('   > Phan tu lon nhat la Max = ',Mx:5:1);
       Writeln('   > Phan tu nho nhat la Min = ',Mn:5:1);
       For i:=1 to n do
           For j:=i+1 to n do
               If a[j]<a[i] Then
                   Begin tmp:=a[i]; a[i]:=a[j]; a[j]:=Tmp; End;
       Write('Day cac so da nhap sap xep theo thu tu tang dan nhu sau: ');
       For i:=1 to n do Write(' ',a[i]:3:1);
       Readln;
End.