Составить функцию, вычисляющую среднее арифметическое положительных элементов одномерного массива

uses crt;
const nmax=12;
type mas=array[1..nmax*nmax]of integer;
function sred(b:mas;n:integer):real;
var i,k:integer;
    s:real;
begin
s:=0;
k:=0;
for i:=1 to n do
if b[i]>0 then
 begin
  s:=s+b[i];
  k:=k+1;
 end;
if k=0 then sred:=0
else sred:=s/k;
end;
var t:array[1..nmax,1..nmax] of integer;
    a:mas;
    m,n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    t[i,j]:=-10+random(21);
    write(t[i,j]:4);
   end;
  writeln;
 end;
n:=0;
for i:=1 to m do
for j:=i to m do
 begin
  n:=n+1;
  a[n]:=t[i,j];
 end;
writeln('Среднее положительных верхней треугольной матрицы=',sred(a,n):0:2);
n:=0;
for i:=1 to m do
for j:=1 to i do
 begin
  n:=n+1;
  a[n]:=t[i,j];
 end;
writeln('Среднее положительных нижней треугольной матрицы=',sred(a,n):0:2);
n:=0;
for i:=1 to m-1 do
for j:=1 to m-i do
 begin
  n:=n+1;
  a[n]:=t[i,j];
 end;
writeln('Среднее положительных над побочной диагональю=',sred(a,n):0:2);
n:=0;
for i:=2 to m do
for j:=m-i+2 to m do
 begin
  n:=n+1;
  a[n]:=t[i,j];
 end;
writeln('Среднее положительных под побочной диагональю=',sred(a,n):0:2);
readln
end.