Дан одномерный массив, состоящий из 10 чисел. определить, является ли массив по возрастанию или убыванию.pascal abc

1) var mas:array[1..10] of Integer;
        i:integer;
begin
        i := mas[1];
        mas[1] := mas[6];
        mas[6] := i;
end.
Вот как то так