Найти количество четных и нечетных чисел в двумерном массиве - QBasic

DEFINT A-Z          '  Все переменные INTEGER
CLS
INPUT "Strok    : ", m       '  Спросим размерность
INPUT "Stolbcov : ", n
 
DIM A(1 TO n, 1 TO m)        '  Заразервируем память(массив)
DIM Ch, NCh                  '  Чётных\Нечётных
 
  '  Заполним матрицу случайными числами и на экран её
RANDOMIZE TIMER     '  "Случайность"
PRINT TAB(5); " Matrica"
FOR i = 1 TO m
   FOR j = 1 TO n
      A(j, i) = INT(RND * 50 - 25)
      PRINT USING " ###"; A(j, i);
   NEXT: PRINT
NEXT
 
  '  Ищем кол-во чётных и нечётных чисел
FOR j = 1 TO n      '  Цикл по столбцам
   FOR i = 1 TO m   '  Цикл по строкам
      NCh = NCh + (A(j, i) AND 1)  '  Нулевой бит означает нечётность
   NEXT
NEXT
Ch = m * n - NCh    '  Кол-во чётных = общее кол-во - кол-во нечётных
 
  '  Печатаем результат
PRINT TAB(5); " Rezultat"
PRINT TAB(2); " Chetnyh   ="; Ch
PRINT TAB(2); " Nechetnyh ="; NCh