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

uses crt;
type mtr=array[1..10,1..10] of real;
function sred(a:mtr;n,k:integer):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+a[k,i];
sred:=s/n;
end;
var a:mtr;
    n,i,j:integer;
    x:real;
begin
clrscr;
repeat
write('Введите размер массива от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Исходный массив');
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Измененный массив');
for i:=1 to n do
 begin
  x:=sred(a,n,i);
  for j:=1 to n do
   begin
    if(j=i)or(j=n-i+1) then a[i,j]:=x;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
readln
end.

function Avg(const v: array of Real): Real;
var i: Integer; r: Real;
begin
  r:=0; for i:=0 to High(v) do r:=r+v[i];
  Avg:=r/(High(v)+1);
end;
{ ... }
  for i:=1 to n do begin
    t:=Avg(a[i]); a[i,i]:=t; a[i,n-i+1]:=t;
  end;
{ ... }

function Avg(const v: array of Real; n: Integer): Real;
var i: Integer; r: Real;
begin
  r:=0; for i:=0 to n-1 do r:=r+v[i];
  Avg:=r/n;
end;
{ ... }
  for i:=1 to n do begin
    t:=Avg(a[i],n); a[i,i]:=t; a[i,n-i+1]:=t;
  end;
{ ... }

const n=5;
var
  a: array [1..n,1..n] of Integer;
  i, t: Integer;
begin
  { ... }
  for i:=1 to n do begin
    t:=Avg(a[i]); a[i,i]:=t; a[i,n-i+1]:=t;
  end;
  { ... }

uses crt;
type mtr=array[1..10,1..10] of real;
function Avg(const v: array of Real): Real;
var i: Integer; r: Real;
begin
  r:=0; for i:=0 to High(v) do r:=r+v[i];
  Avg:=r/(High(v)+1);
end;
var a:mtr;
    n,i,j:integer;
    x:real;
begin
clrscr;
repeat
write('Введите размер массива от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Исходный массив');
randomize;
for i:=1 to n do begin
    t:=Avg(a[i],n); a[i,i]:=t; a[i,n-i+1]:=t;
  end;
  writeln;
 end;
writeln('Измененный массив');
for i:=1 to n do
 begin
  x:=sred(a,n,i);
  for j:=1 to n do
   begin
    if(j=i)or(j=n-i+1) then a[i,j]:=x;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
readln
end.

function vAvg(const v: array of Real): Real;
var i: Integer; r: Real;
begin
  r:=0; for i:=0 to High(v) do r:=r+v[i];
  vAvg:=r/(High(v)+1);
end;
 
procedure vRandom(var v: array of Real);
var i: Integer;
begin
  for i:=0 to High(v) do v[i]:=(-50+Random(101))/10;
end;
 
procedure vWriteLn(const v: array of Real);
var i: Integer;
begin
  for i:=0 to High(v) do Write(v[i]:6:1); WriteLn;
end;
 
const n=5;
var
  a: array [1..n,1..n] of Real;
  t: Real;
  i: Integer;
begin
  Randomize;
  for i:=1 to n do vRandom(a[i]);
  WriteLn('A ='); for i:=1 to n do vWriteLn(a[i]);
  for i:=1 to n do begin t:=vAvg(a[i]); a[i,i]:=t; a[i,n-i+1]:=t; end;
  WriteLn('A''='); for i:=1 to n do vWriteLn(a[i]);
end.