Даны две матрицы А(3,3),В(4,4).найти след каждой матрицы и указать матрицу с наибольшим следом(следом матрицы называется сумма элементов главной диагонали — Pascal(Паскаль)

uses crt;
const n=3;
Type arr=array[1..n,1..n] of integer;
     brr=array[1..n+1,1..n+1] of integer;
 
procedure Mas_a(a:arr; var sum:integer);
var i,j:integer;
begin
sum:=0;
 for i:=1 to n do
  for j:=1 to n do
   if i=j then
    sum:=sum+a[i,j];
end;
 
procedure Mas_b(b:brr; var sum:integer);
var i,j:integer;
begin
sum:=0;
 for i:=1 to n+1 do
  for j:=1 to n+1 do
   if i=j then
    sum:=sum+b[i,j];
end;
 
var a:arr;
    b:brr;
    i,j,sum1,sum2:integer;
begin
ClrScr;
Randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(20)-10;
     Write(a[i,j]:4);
    end;
   Writeln;
  end;
Mas_a(a,sum1);
Writeln;
 for i:=1 to n+1 do
  begin
   for j:=1 to n+1 do
    begin
     b[i,j]:=random(20)-10;
     Write(b[i,j]:4);
    end;
   Writeln;
  end;
Mas_b(b,sum2);
Writeln('Sum ',sum1);
Writeln('Sum ',sum2);
 if sum1>sum2 then
  begin
   Writeln('A');
  end
 else
  Writeln('B');
Readln;
end.