Задачка уровня 9ого класса! Паскаль

[Никита!]

В среде программирования создайте массив a из десяти целых чисел,
принадлежащих интервалу (0, 20], выведите полученный массив на экран.
Вычислите количество элементов массива, значение которых превышает среднее
арифметическое значений его элементов.
Паскаль

[ViktorR]

Что не получается?

1. Опишем переменную, которая будет счётчиком в будущем цикле for. Пусть это z.
   Она целого типа.
2. Опишем массив, в котором будет храниться 10 чисел целого типа
3. Begin  {--- начало тела программы ---}
4. Инициализируй генератор случайных чисел: randomize()
5. В цикле по z от 1 до 10
6.     a[z] := int(20 - random()*20);    {заполняем элементы массива}
                                                         {а почему 20 - random()*20? Тут надо подумать}
7. Выводим элемент на печать
8. Конец цикла
9. Надо посчитать кол-во элементов больше среднего.
Правим цикл.
Добавим подсчёт суммы:
    перед циклом - summa := 0;
    а в цикле: summa := summa + a[z];
10.  Число элементов, превышающих среднее n := 0;
      В цикле по z от 1 до 10
          Если a[z] > summa/10 то n := n + 1; {можно использовать функцию ink(n)}
11. Выводим результат
12. Правим описание переменных, т.к. у нас появились две переменные: summa и n.
13 end.

[Никита!]

спасибо!!