Сложение матриц

type
   ta=array[1..10,1..10] of integer;
var
  Procedure SM( var n:integer a,b:ta;c:ta);
  var
    i,j:integer;
  begin
    for i:=1 to n do begin
      for j:=1 to n do begin
        c[i,j]:=a[i,j]+b[i,j];
      end;
    end;
  end;
  a:array[1..10,1..10] of integer;
  b:array[1..10,1..10] of integer;
  c:array[1..10,1..10] of integer;
  i,j,n:integer;
begin
   read(n);
   for i:=1 to n do begin
     for j:=1 to n do begin
       read(a[i,j]);
       end;
   end;
 
   for i:=1 to n do begin
     for j:=1 to n do begin
       read(b[i,j]);
       end;
   end;
   SM(n,a,b,c);
   for i:=1 to n do begin
     for j:=1 to n do begin
       write(c[i,j]);
       end;
   end;
 
end.

type
   ta=array[1..10,1..10] of integer;
 
  Procedure SM( var n:integer; a,b:ta;var c:ta);
  var
    i,j:integer;
  begin
    for i:=1 to n do begin
      for j:=1 to n do begin
        c[i,j]:=a[i,j]+b[i,j];
      end;
    end;
  end;
 
var
  a:ta; // array[1..10,1..10] of integer;
  b:ta; // array[1..10,1..10] of integer;
  c:ta; // array[1..10,1..10] of integer;
  i,j,n:integer;
begin
   read(n);
   for i:=1 to n do begin
     for j:=1 to n do begin
       read(a[i,j]);
       end;
   end;
 
   for i:=1 to n do begin
     for j:=1 to n do begin
       read(b[i,j]);
       end;
   end;
   SM(n,a,b,c);
   for i:=1 to n do begin
     for j:=1 to n do begin
       write(c[i,j]);
       end;
   end;
 
end.

// var   
  Procedure SM(n: integer; const a, b: ta; var c: ta);
  //...
var // !!!
  a:array[1..10,1..10] of integer;
  b:array[1..10,1..10] of integer;
  c:array[1..10,1..10] of integer;
  i,j,n:integer;