Ох уж эти квадратные матрицы

uses
  crt;
const 
  n = 20;
  m = 20;
type
  Array2D  = array [1..n, 1..m] of integer;
 
function getMatrix(const sizeN : integer, const sizeM : integer) : Array2D;
var
  i, j : integer;
  a : Array2D;
begin
  for i := 1 to sizeN do
    for j := 1 to sizeM do
      read(a[i, j]);
   getMatrix := a;
end;
function getBi(const matrix : Array2D, const index : integer, const sizeN : integer) : integer;
var
  i, imax, sum : integer;
begin
  imax := 1;
  for i := 1 to sizeN do
    if (a[i, index] > a[imax]) then
      imax := i;
  sum := 0;
  if (a[index, index] < 0) then 
  for i := 1 to imax do
      sum := sum + a[i][index]
  else  
  for i := imax to sizeN do
    sum := sum + a[i][index];
  getBi := sum;
end;
procedure writing(const matrix : Array2D, const sizeN, sizeM : integer);
var 
  i, j : integer;
begin
  for i := 1 to sizeN do
    for j := 1 to sizeM do
      write(a[i, j]);
end;
 
var
  matrix : Array2D;
  sizeN, sizeM, i : integer;
  Bi : array [1..m] of integer;
begin
  read(sizeN);
  read(sizeM);
  matrix := getMatrix(sizeN, sizeM);
  for i := 1 to sizeM do
    Bi[i] := getBi(matrix, i, sizeN);
  writing(matrix, sizeN, sizeM);
  for i := 1 to sizeM do
    write(Bi[i]);
  readkey;
end.