Сформировать матрицу по правилу.

program test;
const maxn=3; maxm=3;
type myarray=array[1..maxn,1..maxm] of integer;
 
var a,b,c:myarray;
n,m:integer;
procedure init(var v,w:integer; var x:myarray);
var i,j:integer;
begin
assign(input,'input.txt');
reset(input);
readln(v,w);
for i:=1 to v do
for j:=1 to w do
read(x[i,j]);
close (input);
end;
procedure print(v,w:integer; x:myarray);
var i,j:integer;
assign(output,'output.txt')
rewrite(output);
for i:=1 to v do
begin
for j:=1 to w do
write(x[i,j],' ');
writeln;
end;
close(output);
end;
procedure addarray(v,w:integer;a,b:myarray; var c:myarray);
var i,j:integer;
begin
for i:=1 to v do
for j:=1 to w do
c[i,j]:=a[i,j]+b[i,j];
end;
begin
init(n,a,m);
print(n,m,a);
addarray(n,m,a,c,b);
end.

program test;
const maxn=3; maxm=3;
type myarray=array[1..maxn,1..maxm] of integer;
 
var a,b,c:myarray;
n,m:integer;
 
procedure init(var v,w:integer; var x:myarray);
var i,j:integer;
  begin
  assign(input,'input.txt');
  reset(input);
  readln(v,w);
  for i:=1 to v do
    for j:=1 to w do  read(x[i,j]);
  close (input);
  end;
 
procedure print(v,w:integer; x:myarray);
var i,j:integer;
  begin
  assign(output,'output.txt')
  rewrite(output);
  for i:=1 to v do
    begin
      for j:=1 to w do write(x[i,j],' ');
      writeln;
    end;
  close(output);
end;
 
procedure addarray(v,w:integer;a,b:myarray; var c:myarray);
var i,j:integer;
  begin
    for i:=1 to v do
      for j:=1 to w do c[i,j]:=a[i,j]+b[i,j];
  end;
{====================}
begin
  n:=maxn;
  m:=maxm;
  init(n,m,a);   {читаем массив А}
  print(n,m,a); {массив А на экран}
  init(n,m,b);   {читаем массив В}
  print(n,m,b); {массив В на экран}
  addarray(n,m,a,b,c); 
  print(n,m,c); {массив С на экран}
end.