Является ли сумма элементов второго столбца массива нечетным числом?

uses
  Crt;
 
var
  mass : array of array of ShortInt; //вектор векторов, или двумерная матрица
  i, j, n, m : Byte; //счётчики и размерности матрицы
  sum : Integer; //сумма
begin
  ClrScr; //очистка экрана
  Randomize; //"перерандомливание"
  Write('Input n='); ReadLn(n); //кол-во строк
  SetLength(mass, n); //устанавливаем размер массива (сколько строк)
  Write('Input m='); ReadLn(m); //кол-во столбцов
  for i := 0 to n-1 do
    SetLength(mass[i], m); //для каждой строки устанавливаем кол-во элементов (столбцов)
  sum := 0; //инициализация переменной
  for i := 0 to n-1 do //по каждой строке
  begin
    for j := 0 to m-1 do //по каждому столбцу
    begin
      mass[i, j] := Random(21) - 10; //рандомим
      Write('mass[', i+1, '][', j+1, ']=', mass[i, j]:3, #9); //выводим
      if (j = 1) then //если второй столбец (нумерация от 0)
        sum := sum + mass[i, j]; //прибавляем к сумме
    end;
    WriteLn;
  end;
  WriteLn;
  if (m > 1) then //если второй столбец существует
    WriteLn('Sum is odd: ', Odd(sum)) //Odd(x) - true если x нечётный, "Сумма нечётная?"
  else
    WriteLn('The second column does not exist'); //сообщение об ошибке
end.