Ребятки помогите задачку по паскалю решить:

Дан двумерный массив А(N,N). Найти среднее арифметичечское его положительных элементов.

Нужно решить через процедуру.