Задана квадратная матрица A размером nxn (n больше или равно 10), состоящая из действительных элементов. Найти среднее арифметическое из всех положительных элементов этой матрицы — Pascal(Паскаль)

const n = 3;
var
  a:array[1..n,1..n] of real;
procedure vvod;
var
  i,j:integer;
begin
  writeln('Zapolnite massiv');
  for i:= 1 to n do
  for j:= 1 to n do
  readln(a[i,j]);
end;
 
procedure vivod;
var
  i,j:integer;
begin
  for i:= 1 to n do begin
    writeln;
    for j:= 1 to n do
    write(a[i,j]:0:2);
  end;
  writeln;
end;
 
procedure sar;
var
  i,j,count:integer;
  sum:real;
begin
  sum:= 0;
  count:= 0;
  for i:= 1 to n do
  for j:= 1 to n do
  if a[i,j] > 0 then begin
    sum:= sum + a[i,j];
    inc(count);
  end;
  writeln('Srednee arifmeticheskoe = ',sum/count:0:2);
end;
 
begin
  vvod;
  vivod;
  sar;
end.