Составить подпрограмму вычисления среднего арифметического элементов вектора

Var A:array[1..100,1..100] of real;
    i,j,n:integer;
Function Sr_ar(p:integer):real;
Var j:integer;
     sr:real;
Begin
    sr:=0;
    For j:=1 to n do
     sr:=sr+A[p,j];
    Sr_ar:=sr;
End;
Begin
    Randomize;
    write('Ввежите размерность: ');readln(n);
    For i:=1 to n do
     Begin
      For j:=1 to n do
       Begin
        A[i,j]:=Random(10)-5;
        write(A[i,j]:6:1);
       End;
      writeln;
     End;
     i:=0;j:=0;
    While i<n do
     Begin
      inc(i);inc(j);
      A[i,j]:=Sr_ar(i);
     End;
    writeln('Преобразованная матрица');
    For i:=1 to n do
     Begin
      For j:=1 to n do
       write(A[i,j]:6:1);
      writeln;
     End;
End.

uses crt;
const nmax=20;
type mas=array [1..nmax] of real;
     matr=array [1..nmax] of mas;
var a: matr;
    n,i,j: byte;
 
function Sar (r: byte; z: mas):real;
var e: byte; s:real;
begin
s:=0;
for e:=1 to r do
    s:=s+z[e];
Sar:=s/r;
end;
 
begin
repeat
write('размерность матрицы, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('исходная матрицца ');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i][j]:=random(199)-99;
        write(a[i][j]:6:1);
        end;
    writeln;
    end;
for i:=1 to n do a[i][i]:=Sar (n,a[i]);
writeln('преобразованная матрицца ');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i][j]:6:1);
    writeln;
    end;
readln;
end.