Двумерный массив. Среди элементов нечетных столбцов массива найти сумму отрицательных элементов

const
  csize=100;
 
type
  tmatrix=array [1..csize,1..csize] of integer;
 
procedure CreateMatrix(var ax:tmatrix;am,an:byte);
var
  i,j:byte;
begin
  for i:=1 to am do begin
    for j:=1 to an do begin
      ax[i,j]:=random(100)-50;
      write(ax[i,j]:5);
    end;
    writeln;
  end;
  writeln;
end;
 
function CountSum(var ax:tmatrix;am,an:byte):integer;
var
  sum:integer;
  i,j:byte;
begin
  sum:=0;
  for i:=1 to am do
    for j:=1 to an do
      if (odd(j)) and (ax[i,j]<0) then
        sum:=sum+ax[i,j];
  CountSum:=sum;
end;
 
var
  x:tmatrix;
  m,n:byte;
 
begin
  randomize;
  write('введите размер матрицы M x N : ');
  readln(m,n);
  writeln;
  CreateMatrix(x,m,n);
  writeln('сумма отрицательных элементов в нечётных столбцах равна : ',
    CountSum(x,m,n));
  readln
end.