Дан массив. Определить, отсортирован ли он?

const
    n = 10;
    res : Array[0..3] Of String = ('Unsorted', 'Sorted Up', 'Sorted Down', 'Sorted Up and Down');
type
    TLine = Array[1..n] Of Integer;
    ans = 0..4;
function IsSorted(const a : TLine) : ans;
var
    Result : ans;
    state : Boolean;
    i : Byte;
begin
    Result := 0;
    state := True;
    for i := 2 to n do
        if (a[i] < a[i - 1]) then
        begin
            state := False;
            Break;
        end;
    if state then
        Result := 1;
    state := True;
    for i := 2 to n do
    if (a[i] > a[i - 1]) then
    begin
        state := False;
        Break;
    end;
    if state then
        if (Result = 0) then
            Result := 2
        else
            Result := 3;
    IsSorted := Result;
end;
 
var
    mass : TLine;
    i : Byte;
begin
    for i := 1 to n do
        ReadLn(mass[i]);
    WriteLn(res[IsSorted(mass)]);
end.

const
    n = 10;
    res : Array[0..5] Of String = ('Несортирован1', 'Сортирован по возрастанию2', 'Сортирован по убыванию3', 'Сортирован по неубыванию4', 'Сортирован по невозрастанию5', 'Сортирован по невозрастанию и неубыванию6');
type
    TLine = Array[1..n] Of Integer;
    ans = 0..5;
function IsSorted(const a : TLine) : ans;
var
    Result : ans;
    state : Boolean;
    i : Byte;
begin
    Result := 0;
    state := True;
    for i := 2 to n do
        if (a[i] <= a[i - 1]) then
        begin
            state := False;
            Break;
        end;
    if state then
        Result := 1
    else
    begin
        state := True;
        for i := 2 to n do
            if (a[i] >= a[i - 1]) then
            begin
                state := False;
                Break;
            end;
        if state then
            Result := 2
        else
        begin
            state := True;
            for i := 2 to n do
                if (a[i] < a[i - 1]) then
                begin
                    state := False;
                    Break;
                end;
            if state then
                Result := 3;
            state := True;
            for i := 2 to n do
                if (a[i] > a[i - 1]) then
                begin
                    state := False;
                    Break;
                end;
            if state then
            begin
                if (Result = 3) then
                    Result := 5;
                if (Result = 0) then
                    Result := 4;
            end;
        end;
    end;
    IsSorted := Result;
end;
var
    mass : TLine;
    i : Byte;
begin
    for i := 1 to n do
        ReadLn(mass[i]);
    WriteLn(res[IsSorted(mass)]);
end.