Из матрицы получить массив, состоящий из средних арифметических строк матрицы

uses crt;
const
nmax=5;
type 
     matr=array[1..nmax,1..nmax] of integer;
     mas=array[1..nmax] of real;
procedure InputMatr (var a: matr; n,m:integer);
  var i,j:integer;
begin
    for i:=1 to n do
       for j:=1 to m do begin
          gotoxy(5*j, 5+i);
          Read(a[i,j]);
        end;
    end;
function SumMatr(var a:matr;b:mas; n,m:integer):integer;
  var 
      s,i,j:integer;
  begin
  for i:=1 to nmax do
    s:=0;
    for j:=1 to nmax do begin
      s:=s+a[i,j];
      b[i]:=s/n;
      writeln;
      end;
  end;
procedure SrArifMas(var b:mas);
var i:integer;
    s:real;
    с:integer;
begin
  if b[i]>0 then begin
    s:=s+b[i];
    Inc(с);
    end;
    writeln(s/с);
    readln;
end;
procedure Shell(var a:matr;n,m:integer);
const
  t=5;
  h:array[1..t] of integer=(9,5,3,2,1);
  var
  g,i,j,k,v:integer;
begin
    for i:=1 to n do begin
      for g:=1 to t do begin  
        k:=h[g];
        for j:=1 to m-k do
          if a[i,j]>a[i,j+k] then begin
          v:=a[i,j];
          a[i,j]:=a[i,j+k];
          a[i,j+k]:=v;
      end;
    end;
end;
end;
var a:matr; b:mas;
    n,m:integer;
begin
  writeln('Введите количество строк');
  readln(n);
  writeln('Введите количество столбцов');
  readln(m);
  Writeln('Введите матрицу');
  InputMatr(a,n,m);
  SumMatr(a,b,n,m);
  SrArifMas(b);
  Shell(a,n,m);
end.

procedure SrArifMas(var b:mas;n:integer);
var i:integer;
    s:real;
    c:integer;
begin
  s:=0;
  for i:=1 to n do begin
  if b[i]>0 then begin
    s:=s+b[i];
    Inc(c);
    end;
    writeln(s/c);
    readln;

procedure SrArifMas(var b:mas;n:integer);
var i:integer;
    s:real;
    c:integer;
begin
  s:=0;
  c:=0;
  for i:=1 to n do begin
  if b[i]>0 then begin
    s:=s+b[i];
    Inc(c);
    end;
    writeln(s/c);
    readln;
end;
end;

  if c<>0 then
    writeln(s/c)
  else
    writeln('Нет положительных');

procedure SrArifMas( var b:mas; n:integer);
var
  k,i:integer;
  s:real;
begin
  s:=0;
  k:=0;
  for i:=1 to n do begin
  if (b[i]>0) then begin
  s:=s+b[i];
  Inc(k);
end;
end;
if k>0 then
    writeln('задача поиска среднего арифметического элементов массива'+s/k)
  else
    writeln('Нет положительных');
end;

  procedure SrArifMas(var b: mas; n: integer);
  var
    k, i: integer;
    s: real;
  begin
    s := 0;
    k := 0;
    for i := 1 to n do
    begin
      if (b[i] > 0) then
      begin
        s := s + b[i];
        Inc(k);
      end;
    end;
    if k > 0 then
      writeln('задача поиска среднего арифметического элементов массива' + s / k)
    else
      writeln('Нет положительных');
  end;

program lab;
 
const
  nmax = 5;
type
  matr = array[1..nmax, 1..nmax] of integer;
  mas  = array[1..nmax] of real;
 
  procedure SrArifMas(var b: mas; n: integer);
  var
    k, i: integer;
    s: real;
  begin
    s := 0;
    k := 0;
    for i := 1 to n do
    begin
      if (b[i] > 0) then
      begin
        s := s + b[i];
        Inc(k);
      end;
    end;
    if k > 0 then
      writeln('задача поиска среднего арифметического элементов массива' , s / k)
    else
      writeln('Нет положительных');
  end;
 
const
  a: mas = (-1, -2, 3, 7, 0);
begin
  SrArifMas(a, nmax);
end.