Массив: Распечатать одну из трех матриц, в которой находится максимальная сумма элементов 3-го столбца

function readMatrix(msg : String; Rows, Cols : Integer) : array [,] of Integer;
begin
  WriteLn(msg);
  SetLength(Result, Rows, Cols);
  for var Row := 1 to Rows do
    for var Col := 1 to Cols do
      Result[Pred(Row), Pred(Col)] := ReadLnInteger(String.Format('[{0}, {1}] =', Row, Col));
end;
 
function sum3column(a : array [,] of Integer) := a.col(2).sum;
 
procedure outMatrix(msg : String; a : array [,] of Integer);
begin
  WriteLn(msg); a.Println;
end;
 
begin
  var a := readMatrix('Первая матрица:', 3, 4); var s3a := sum3column(a);
  var b := readMatrix('Вторая матрица:', 4, 4); var s3b := sum3column(b);
  var c := readMatrix('Третья матрица:', 3, 3); var s3c := sum3column(c);
  outMatrix('Первая матрица (сумма элементов 3-го столбца ' + s3a + ')', a);
  outMatrix('Вторая матрица (сумма элементов 3-го столбца ' + s3b + ')', b);
  outMatrix('Третья матрица (сумма элементов 3-го столбца ' + s3c + ')', c);
  var m := a;
  if s3a > s3b then m := b;
  if s3b > s3c then m := c;
  outMatrix('Матрица с минимальной суммой элементов 3-го столбца:', m);
end.