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

program project1;
const
  n=3;
type
  massiv = array[1..n,1..n] of integer;
var
  a,b,c:massiv;
  i,j,k,s,x:integer;
 
procedure massiv_a(var a1:massiv);
  begin
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            a1[i,j]:=random(10);
            write(a1[i,j]:4);
          end;
        writeln;
      end;
  end;
 
procedure massiv_b(var b1:massiv);
  begin
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            b1[i,j]:=random(10);
            write(b1[i,j]:4);
          end;
        writeln;
      end;
  end;
 
procedure massiv_c(var c1:massiv);
  begin
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            c1[i,j]:=random(10);
            write(c1[i,j]:4);
          end;
        writeln;
      end;
  end;
 
begin
  randomize;
  writeln('Massiv a ='); Massiv_a(a);
  writeln('Massiv b ='); Massiv_b(b);
  writeln('Massiv c ='); Massiv_c(c);
  readln;
end.

const n=3;
type
  PMatrix = ^TMatrix;
  TMatrix = array [1..n,1..n] of Integer;
procedure mGen(var a: TMatrix; var m: Integer);
var i, j, t: Integer;
begin
  m:=0;
  for i:=1 to n do begin
    t:=0;
    for j:=1 to n do begin
      a[i,j]:=Random(10); t:=t+a[i,j];
    end; WriteLn;
    if m<t then m:=t;
  end;
end;
procedure mWrite(const a: TMatrix);
var i, j: Integer;
begin
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]); WriteLn;
  end;
end;
var
  a, b, c: TMatrix; p: PMatrix;
  m, t: Integer;
begin
  Randomize;
  mGen(a,m); p:=@a;
  mGen(b,t);
  if m<t then begin
    m:=t; p:=@b;
  end;
  mGen(c,t);
  if m<t then begin
    m:=t; p:=@c;
  end;
  WriteLn('A ='); mWrite(a);
  WriteLn('B ='); mWrite(b);
  WriteLn('C ='); mWrite(c);
  WriteLn('Max:'); mWrite(p^);
end.

var
  a: array [0..2] of TMatrix;
  m, t, p, i: Integer;
begin
  Randomize;
  for i:=0 to 2 do begin
    mGen(a[i],t); WriteLn(Chr(Ord('A')+i),' ='); mWrite(a[i]);
    if m<t then begin m:=t; p:=i; end;
  end;
  WriteLn('Max:'); mWrite(a[p]);
end.