Даны три целые матрицы размера N´N. Вывести ту из них ту,у которой сумма диагональных элементов максимальна

const
 n = 3;
 m = 3;
type
 TArr = array[1..n, 1..m] of integer;
var
 a, b, c: TArr;
 
procedure Massiv_A(var arr: TArr; n, m: integer);
var
 i, j: integer;
begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(5);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
procedure Massiv_B(var arr: TArr; n, m: integer);
var
 i, j: integer;
begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(5);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
procedure Massiv_C(var arr: TArr; n, m: integer);
var
 i, j: integer;
begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr[i, j]:=random(5);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
begin
 writeln('Массив А: ');
 Massiv_A(a, n, m);
 writeln('Массив B: ');
 Massiv_B(a, n, m);
 writeln('Массив С: ');
 Massiv_C(a, n, m);
end.

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
const n = 3;
type TArr = array[1..n,1..n] of integer;
var a,b,c:TArr;
    i,j,ans,numb,x:Integer;
 
procedure Massiv_A(var arr: TArr);
begin
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      arr[i, j]:=random(5);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
procedure Massiv_B(var arr: TArr);
begin
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      arr[i, j]:=random(5);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
procedure Massiv_C(var arr: TArr);
begin
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      arr[i, j]:=random(5);
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
function m_a_x(var a:TArr):Integer;
var q:Integer;
begin
  q:=0;
  for i:=1 to n do
    begin
      q:=q+a[i,i];
    end;
  m_a_x:=q;
end;
 
begin
  Randomize;x:=0;
   writeln('Array A = '); Massiv_A(a,);
   writeln('Array B = '); Massiv_B(b);
   writeln('Array C = '); Massiv_C(c);
   ans:=m_a_x(a);;numb:=1;
   x:=m_a_x(b);
     if (ans<x) then
      begin
        ans:=x;
        numb:=2;
      end;
   x:=m_a_x(c);
     if (ans<x) then
      begin
        ans:=x;
        numb:=3;
      end;
   writeln('Answer = ',ans,'[',numb,']');
  readln;
end.