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

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

Помогите плиз!!!!!!горит..... Дана квадратная матрица MxM.Найти номер строк,все элементы которых =0.

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

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

CLS
INPUT "vvedite m"; m
DIM a(m, m)
FOR i = 1 TO m
    FOR j = 1 TO m
        PRINT "vvedite a("; i; ","; j; ")";
        INPUT a(i, j)
    NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO m
    FOR j = 1 TO m
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT "rezultat"
FOR i = 1 TO m
    k = 0
    FOR j = 1 TO m
        IF a(i, j) = 0 THEN k = k + 1
    NEXT
    IF k = m THEN PRINT i;
NEXT

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

В первой строке программы на экран выводится приглашение для ввода числа m, которое будет определять размер матрицы.
Затем, введенное значение сохраняется в переменной m.
Далее, создается матрица a размером m на m.
В двух следующих циклах, для каждого элемента матрицы выводится приглашение для ввода значения, и само значение сохраняется в соответствующем элементе матрицы.
После заполнения матрицы, выводится приглашение massiv, после чего на экран выводятся все элементы матрицы.
Затем, выводится приглашение rezultat, и в следующем цикле, для каждого элемента матрицы проверяется его значение. Если элемент равен нулю, то к переменной k прибавляется единица.
После проверки всех элементов матрицы, в каждой итерации цикла проверяется значение переменной k. Если оно равно m, то выводится номер строки i.