Chuyên tin! Cho dãy số thực bất kì, kiểm tra xem dãy đã sắp xếp chưa nếu rồi xem là tăng hay giảm hậu tạ 50 điểm!!!!!

uses crt;
type mang = array [1..1000] of integer;
var a:mang;
    i,j,n:longint;
function tang(a:mang):boolean;
begin
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i] > a[j] then exit(false);
        exit(true);
end;
function giam(a:mang):boolean;
begin
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i] < a[j] then exit(false);
        exit(true);
end;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,':');
                        read(a[i]);
                end;
        clrscr;
        if tang(a) then write('Mang tang dan')
        else if giam(a) then write('Mang giam dan')
        else write('Mang khong duoc sap xep');
        readln;
        readln;
end.

Program BTT;
Uses crt;
Type manga = array[1..10000] of longint;
Var A: manga;
    n,i: longint;

Function ktra_tang(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]>A[j] then exit(false);
        exit(true);
End;

Function ktra_giam(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]<A[j] then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        If ktra_tang(A,n) then Write('Mang tang dan')
        Else If ktra_giam(A,n) then Write('Mang giam dan')
        Else Write('Mang chua duoc sap xep');
        Readln
End.