Подсчитать количество чисел больших среднего арифметического положительных элементов массива - Pascal ABC

Формулировка задачи:

В одномерном массиве А[15] подсчитать количество чисел больших среднего арифметического положительных элементов массива. Алгоритм вычисления среднего арифметического оформить процедурой.

Решение задачи: «Подсчитать количество чисел больших среднего арифметического положительных элементов массива»

Листинг программы

var
  x: Array[1..100, 1..100] of Integer;
  s1, i, j, s, n: Integer;
 
begin
  Randomize;
  Writeln('Введите размер матрицы: ');Readln(n);
  Writeln('Случайная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(51) - 25;
      Write(x[i, j]:5);
    end;
    Writeln
  end;
  j := n + 1;
  for i := 1 to n do
  begin
    j := j - 1;
    s := s + x[i, j];
    s1 := s1 + x[i, i];
  end;
  Writeln('Сумма элементов побочной диагонали: ', s);
  Writeln('Сумма элементов главной диагонали: ', s1);
  Writeln('Полученная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if x[i, j] > 0 then
        x[i, j] := s1;
      if x[i, j] < 0 then
        x[i, j] := s;
      Write(x[i, j]:5);
    end;
    Writeln;
  end;
  
  Readln;
end.

Объяснение кода листинга программы

Создается переменная x, которая представляет собой массив размером 100x100, заполненный целыми числами.
Пользователю предлагается ввести размер матрицы n.
Выводится случайная матрица размером nxn.
Для каждой строки матрицы вычисляется сумма элементов побочной диагонали (s) и сумма элементов главной диагонали (s1).
Выводится сумма элементов побочной диагонали и сумма элементов главной диагонали.
Для каждой строки матрицы происходит проверка каждого элемента на положительность или отрицательность. Если элемент положительный, то он заменяется на сумму элементов главной диагонали (s1), если отрицательный, то на сумму элементов побочной диагонали (s).
Выводится полученная матрица.