В заданной матрице найти наибольший из элементов, кратных 7 - QBasic

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

Помогите написать код, на qBasic

В заданном массиве A(N,M) найти наибольший из элементов, кратных 7.

Решение задачи: «В заданной матрице найти наибольший из элементов, кратных 7»

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

CONST MaxRow = 4
CONST MaxCol = 4
CONST MaxRnd = 200
REDIM Table(MaxRow, MaxCol)  AS INTEGER
 
SCREEN 10
 
DIM I, J AS INTEGER
 
RANDOMIZE TIMER
'заполняем таблицу случайным образом
FOR I = 0 TO MaxRow
  FOR J = 0 TO MaxCol
  Table(I, J) = MaxRnd * RND
  NEXT J
NEXT I
 
DIM MaxEl AS INTEGER
 
MaxEl = Table(0, 0)
 
 
FOR I = 0 TO MaxRow
  FOR J = 0 TO MaxCol
    IF MaxEl < Table(I, J) AND (Table(I, J) MOD 7 = 0) THEN
      MaxEl = Table(I, J)
    END IF
  NEXT J
NEXT I
 
IF (MaxEl MOD 7 = 0) THEN
   PRINT MaxEl
ELSE
  PRINT "Not Found"
END IF
 
SLEEP

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

Задаются константы для размера таблицы (максимальное количество строк и столбцов) и диапазона случайных чисел.
Создается двухмерный массив (таблица) указанного размера.
Таблица заполняется случайными числами из заданного диапазона.
Инициализируется переменная для хранения наибольшего найденного элемента, кратного 7, начальным значением первого элемента первой строки таблицы.
Происходит двойной цикл по всем элементам таблицы.
Если текущий элемент больше текущего значения переменной MaxEl и при этом кратен 7, то значение переменной MaxEl обновляется.
Если после прохода по всем элементам таблицы значение переменной MaxEl осталось неизменным, то выводится сообщение Not Found, иначе выводится значение переменной MaxEl.