Матрица: среднее арифметичиское - Pascal

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

Добрый вечер помогите написать программку: Hайти среднее аpифметическое положительных элементов каждого столбца матpицы x(10х20) при условии, что в каждом столбце есть хотя бы один положительный элемент. Заранее спс за помощь

Решение задачи: «Матрица: среднее арифметичиское»

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

uses crt;
const m=10;
      n=20;
var a:array[1..m,1..n] of integer;
    i,j,k:integer;
    sr:real;
begin
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10)-7;
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Для продолжения нажмите Enter...');
readln;
for j:=1 to n do
 begin
  k:=0;
  sr:=0;
  for i:=1 to m do
   begin
    if a[i,j]>0 then
     begin
      k:=k+1;
      sr:=sr+a[i,j];
     end;
   end;
  if k>0 then writeln('В столбце ',j,' среднее положительных=',sr/k:0:2);
 end;
readln
end.

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

Объявлены переменные:
- a - массив размером m x n (10 x 20), инициализированный случайными значениями от -7 до 3 (включительно)
- i, j, k - индексы для обхода массива
- sr - переменная для хранения суммы положительных элементов в текущем столбце
Выводится содержимое массива a в формате 3-значного числа (после вывода каждой строки массива)
После вывода массива, пользователю предлагается нажать Enter для продолжения
Для каждого столбца (j) вычисляется количество положительных элементов и их сумма
Если количество положительных элементов больше 0, выводится среднее значение положительных элементов в формате 0-значного числа (j-й столбец, среднее положительных)