Надо НАПИСАТЬ АЛГОРИТМ. Помогите...

Условие задачи - написать в паскале программу, которая находит среднее значение все положительных элементов матрицы. Я рандомно задаю значения матрицы, только сам ввожу её размер, потом обнуляю счётчики и перебираю матрицу. В результате получаю количество и суму положительных элементов, потом вывожу среднее значение. Программа - работает, писал в PascalABC

uses crt;

const Nmax=12;

var a:array[1..Nmax,1..Nmax]of integer;

N,i,j,kol,suma:integer;

s_znach: real;

Begin

randomize;

repeat

WriteLn ('Введите N: ');

WriteLn('00 = ',kоl);

Writeln('Сума элементов x>0 = ',suma);

Writeln('Среднее знач. элементов x>0 =',s_znach);

ReadLn;

End.