Задача. Подсчитать количество частей одномерного массива, данного генератором случайных

Для начала продумаем наше решение. Поначалу заполним массив случайными числами с помощью цикла и сходу в нем найдем сумму его чисел, чтобы позже найти среднее арифметическое, а потом теснее в следующем цикле будем искать числа больше либо меньше среднего арифметического.Для того чтоб решить задачку нам понадобятся следующие переменные :1. Переменная mass  для нашего массива
2. Переменная more  для чисел больше среднего арифметического
3. Переменная less  для чисел меньше среднего арифметического
4. Переменная aver  для среднего арифметического
5. Переменная i  для циклаНачнем мы с каркаса нашей программки :123456789101112131415const N = 40;type    massiv = array [1..N] of integer;var    mass: massiv;    more, less, i : integer;    aver : real;    begin    randomize;         aver := 0;    more := 0;    less := 0;end.