Выяснить имеются ли в матрице ненулевые элементы - QBasic

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

дана квадратичная матрица.выяснить имеются ли в ней ненулевые элементы,и если да то указать индекс хотя бы одного из них Помогите пожалуйста!

Решение задачи: «Выяснить имеются ли в матрице ненулевые элементы»

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

INPUT "vvedite kol-vo strok ", n
DIM a(n, n)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(RND * 2)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i, j) <> 0 THEN PRINT "nenulevye elementy est a("; i; ","; j; ")="; a(i, j): f = 1: END
NEXT
NEXT
IF f = 0 THEN PRINT "nenulevyh elementov net"

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

Код выполняет следующие действия:

Ввод количества строк матрицы с помощью функции INPUT.
Выделение памяти под матрицу с помощью команды DIM.
Инициализация матрицы с помощью двух вложенных циклов FOR. Значение каждого элемента матрицы вычисляется как случайное число, ограниченное значениями от 0 до 2, с помощью команды a(i, j) = INT(RND * 2).
Вывод матрицы на экран с помощью двух вложенных циклов FOR и команды PRINT.
Поиск ненулевых элементов в матрице с помощью двух вложенных циклов FOR и условного оператора IF. Если элемент ненулевой, его значение и координаты выводятся на экран, а переменная f устанавливается в 1.
После завершения второго цикла проверяется значение переменной f. Если оно равно 0, выводится сообщение nenulevyh elementov net.