Организация программ обработки одномерных массивов на языке Pascal

Математическая постановка задачи:
Из формулы 1:
if x[i]

Цель: Изучить и освоить методы программирования задач с одномерными массивами, и приобретения практических навыков в программировании простейших циклических структур.

Вывод
Изучил и освоил методы программирования задач с одномерными массивами, и приобрел практических навыков в программировании простейших циклических структур.
Результаты полученные в ходе работы программы совпадают с теми, что были подсчитаны вручную. Это может свидетельствовать правильной работоспособности программы и алгоритма.
Массив Х формируется произвольно через процедуру random. Далее в соответствие с условием из массива Х вычисляются элементы массива Р. Затем программа определяет сколько элементов массива (начиная со второго и заканчивая предпоследним) меньше полусуммы предыдущего и последующего элементов массива Р. Так и определяется количество элементов массива Р удовлетворяющих условию.

Cнимок задания прилагается в *.jpg файле.
В работе содежится исходный код, описан математический алгоритм + графическая блоксхема и анализ результатов.