Вычисление элементов матрицы

program matriza
const
n=3; {количество строк}
m=7; {количество столбцов} 
type mas=array[1..n,1..m] of real;

uses crt;
const
n=3;
m=7;
type mas=array[1..n,1..m] of integer;
var a,b,c:mas;
i,j:integer;
procedure proc;
begin
writeln('Массив A');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(40)-20;
        write(a[i,j]:4);
      end;
   writeln;
   end;
writeln('Массив B');
for i:=1 to n do
 begin
   for j:=1 to m do
     begin
       b[i,j]:=random(50)-30;
       write(b[i,j]:4);
     end;
 writeln;
 end;
end;
begin
clrscr;
randomize;
proc;
writeln('Массив C');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
      c[i,j]:=a[i,j]+b[i,j];
      write(c[i,j]:4);
    end;
  writeln;
  end;
readkey;
end.