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

var intArray : array[1 ... 10] of integer; i, n : integer; begin write ('Введите 10 целых чисел: '); for i : = 1 to 10 do readLn (intArray[i]); if intArray[1] < intArray[2] then write ('Массив не является упорядоченным по убыванию.') / / Полагаю, что если 1 элемент меньше 2, то это уже неправильно else write ('Массив упорядочен по убыванию.'); end.