Найти максимальный элемент среди элементов матрицы, расположенных ниже главной диагонали - QBasic

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

Дана квадратная матрица размерностью mxm. Построить вектор из положительных элементов на главной диагонали. Найти максимальный элемент среди элементов, расположенных ниже главной диагонали. помогите,а то у меня фигня какая-то выходит(пока что только вектор пыталась высчитать) вот такую программу сделала:

CLS
s = 0
INPUT "vvedite kolichestvo strok i stolbcov M ", m
DIM a(m, m)
FOR i = 1 TO m
    FOR j = 1 TO m
        a(i, j) = INT(RND * 50 - 25)
    NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO m
    FOR j = 1 TO m
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT
PRINT "____________"
PRINT "vektor"
FOR i = 1 TO m
    IF a(i, i) > 0 THEN
        s = s + 1
    END IF
NEXT i
DIM b(s)
FOR l = 1 TO s
    FOR i = 1 TO m
        IF a(i, i) > 0 THEN
            b(l) = a(i, i)
            PRINT b(i)
        END IF
    NEXT i
NEXT l
END

Тему можно удалять.Я сделала программу.

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

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

max=a(1,1)
FOR i=2 TO m
IF a(i,i)>max THEN max=a(i,i)
NEXT

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

max - это переменная, которая инициализируется значением элемента матрицы a(1,1).
Затем происходит цикл от 2 до m, где m - это количество строк в матрице.
Внутри цикла проверяется каждый элемент матрицы a(i,i), где i - это номер строки.
Если значение элемента a(i,i) больше значения переменной max, то значение переменной max обновляется значением элемента a(i,i).
После завершения цикла, значение переменной max будет содержать максимальное значение из элементов матрицы, расположенных ниже главной диагонали.