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

{ Дана квадратная матрица а и b одинаковой разрядность. Сформировать новую
матрицу путем нахождения
среднеарифмитического соответствующих матриц.}
 
uses
  crt;
const
  n=5;
type
  matrix=array[1..n,1..n] of real;
var
  a,b,c:matrix;
  x,y:integer;
 
procedure FillMatrix(var m:matrix; x,y:integer);
var
  i,j:integer;
begin
  for i:=1 to x do
    for j:=1 to y do
      m[i,j]:=random(n*n) - n;
end;
 
procedure OutputMatrix(m:matrix; x,y:integer);
var
  i,j:integer;
begin
  for i:=1 to x do
    begin
      for j:=1 to y do
        write(m[i,j]:6:2);
      writeln;
    end;
end;
 
procedure SumMatrix(x,y:integer; a,b:matrix; var c:matrix);
var
  i,j:integer;
begin
  for i:=1 to x do
    for j:=1 to y do
      c[i,j]:=a[i,j]+b[i,j];
end;
 
begin
  clrscr;
  FillMatrix(a,n,n);
  writeln('Матрица А: ');
  OutputMatrix(a,n,n);
  FillMatrix(b,n,n);
  writeln('Матрица B: ');
  OutputMatrix(b,n,n);
  SumMatrix(n,n,a,b,c);
  for x:=1 to n do
    for y:=1 to n do
      c[x,y]:=c[x,y]/2;
  writeln('Матрица C: ');
  OutputMatrix(c,n,n);
  readln;
end.