Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё - QBasic

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

Ребят,помогите с одним вопросом. Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё. я задаю размерность матрицы,через рандомайз выдаю значения,но как заменить все её элементы на главной и выше?

Решение задачи: «Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше неё»

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

CLS
RANDOMIZE TIMER
CONST n = 12
DIM A(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = 20 * RND
   PRINT USING "####"; A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = i TO n
   A(i, j) = 0
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "####"; A(i, j);
NEXT j: PRINT
NEXT i
 
END

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

Создается матрица A размером n на n, заполненная случайными числами от 0 до 20.
Выводится на экран содержимое матрицы A.
Используя два вложенных цикла, все элементы матрицы A, расположенные на главной диагонали и выше неё, заменяются на 0.
Выводится на экран обновленное содержимое матрицы A.