Сделать функцию которая будет считать среднее арифметическое каждой строки

program matrizi;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type mas=array[1..30,1..20] of integer;
     massiv=array[1..30] of double;
 
procedure VVOD (var a:mas;var n,m:integer);
var i,j:integer;
begin
writeln('VVedite kolichestvo strok');
readln(n);
writeln('VVedite kolichestvo stolbzov');
readln(m);
writeln('Vvedite matrizu');
for i:=1 to n do begin
  for j:=1 to m do read (a[i,j]);
  readln;
                 end;
end;
 
procedure POISK (a:mas;n,m:integer;var b:massiv);
var i,j,sum:integer;
    ar:double;
begin
for i:=1 to n do begin
  sum:=0;
  for j:=1 to m do sum:=sum+a[i,j];
  ar:=sum/m;
  b[i]:=ar;
                 end;
end;
 
 
procedure VIVOD (b:massiv;n:integer);
var i:integer;
begin
for i:=1 to n do write (b[i]:1:1,' ');
  writeln;
end;
 
var A:mas;
    b:massiv;
    n,m:integer;
begin
VVOD(A,n,m);
POISK(A,n,m,b);
writeln('Poluchennaya matriza');
VIVOD(b,n);
readln;
end.

type mas=array[1..30] of integer;
       matr=array[1..30] of mas;

function Sred(v:mas;y:byte):real;
var s:integer;
     i:byte;
begin
s:=0;
for i:=1 to y do
s:=s+v[i];
Sred:=s/y;
end;

for i:=1 to n do
b[i]:=Sred(a[i],m);