Определить образуют ли элементы массива арифметическую прогрессию. Pascal ABC Mas Если можно всю программу целиком

Сортировать не нужно! − По условию он уже должен либо образовывать, либо не образовывать.
По определению арифметической последовательности: каждый следующий элемент получается прибавлением к текущему некоторого значения (одного и того-же) .
Значит всё просто:
1) ищем разность 1 и 2 элементов массива D = A[1] - A[2]
2) начиная со второго элемента N = 2
3) предполагаем, что последовательность является арифметической прогрессией Arifm = true
4) пока выполняются оба условия N < ArrSize и Arifm = true
5) проверяем правильность утверждения Arifm = (A[N] - A[N + 1) = D
6) увеличивем счётчик N = N + 1
7) конец цикла
8) выводим результат: "Элементы массива образуют арифметическую последовательность = ", Arifm