Найти номера столбцов матрицы, все элементы которых равны нулю - QBasic

Формулировка задачи:

У меня есть задача на QBasic: Матрица А состоит из 6 строк и 6 столбцов. Найти номера столбцов, все элементы которых равны нулю. и программа: (но она работает как то коряво, можете посмотреть в чем там ошибка ) Суть ошибки, что пи запуске система, предлагает ввести массу чисел (больше, чем нужно) и в итоге выводит то ли их сумму, то ли произведение.

CLS 
 
DIM A(6, 6) 
 
FOR i = 1 TO 6 
 
FOR j = 1 TO 6 
 
INPUT A(i, j) 
 
NEXT j 
 
NEXT i 
 
FOR j = 1 TO 6 
 
S = 0 
 
FOR i = 1 TO 6 
 
IF A(i, j) MOD 2 = 0 THEN S = S + 1 
 
NEXT i 
 
B(k) = S : k = k + 1 
 
NEXT j 
 
FOR k = 1 TO 6 
 
PRINT B(k); 
 
NEXT k 
 
END

Решение задачи: «Найти номера столбцов матрицы, все элементы которых равны нулю»

Листинг программы

10 CLS 
20 DIM A(6, 6)
30 DIM B(6) 
40 FOR i = 1 TO 6 
50   FOR j = 1 TO 6 
60     INPUT A(i, j) 
70   NEXT j 
80 NEXT i
 
90 FOR j = 1 TO 6 
100  S = 0 
110  FOR i = 1 TO 6 
120    IF A(i, j) <> 0 THEN S = 1: EXIT FOR
130  NEXT i 
140  IF S=0 THEN k = k + 1: B(k) = j
150 NEXT j
 
160 FOR j = 1 TO k
170   PRINT B(j); 
180 NEXT j 
190 END

Объяснение кода листинга программы

Очистка экрана.
Создание двухмерной матрицы A(6,6) и одномерной матрицы B(6). 30-40. Заполнение матрицы A значениями с помощью цикла. 50-60. Ввод значений в матрицу A с помощью цикла. 70-80. Цикл, проверяющий все строки матрицы A на наличие ненулевых элементов. 90-100. Начало цикла, проверяющего все столбцы матрицы A на наличие ненулевых элементов. 110-120. Цикл, проверяющий все элементы текущего столбца матрицы A на ненулевое значение. 130-140. Если в текущем столбце есть ненулевые элементы, то цикл прерывается, иначе, если столбец полностью состоит из нулей, его номер записывается в матрицу B. 160-170. Вывод на экран номеров столбцов, все элементы которых равны нулю. 180-190. Конец работы программы.