Найти вектор составленный из минимальных элементов по столбцам - QBasic

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

Дана матрица B (6X7) Найти среднее арифметическое Z матрицы B. Прибавить полученное среднее арифметическое к элементам 3-й строки матрицы. Найти вектор составленный из минимальных элементов по столбцам. Помогите пожалуйста сделать третье действие, уже мозг кипит

INPUT "vvedite n"; n
INPUT "vvedite m"; m
 
DIM a(1 TO n, 1 TO m)
 
FOR i = 1 TO n
    FOR j = 1 TO m
        a(i, j) = INT(RND * 100) - 50
    NEXT j
NEXT i
 
PRINT "Matrica NxM:"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT USING "###   "; a(i, j);
    NEXT j
    PRINT
NEXT i
PRINT
PRINT "Zadanie 1"
S = 0
Kol = 0
FOR i = 1 TO n
    FOR j = 1 TO m
        IF a(i, j) <> 0 THEN
            S = S + a(i, j)
            Kol = Kol + 1
        END IF
    NEXT j
NEXT i
Srar = S / Kol
PRINT "S = "; S, "kol = "; Kol, "Srar = "; Srar
PRINT "Zadanie 2"
L = 0
FOR j = 1 TO n
    FOR i = 3 TO 3
        IF a(i, j) <> 0 THEN
            L = Srar + a(i, j)
            PRINT "L=", L
        END IF
    NEXT i
NEXT j
END

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

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

PRINT "Zadanie 3"
DIM vek(1 TO m)
FOR j = 1 TO m
    min = 10 ^ 10
    FOR i = 1 TO n
        IF a(i, j) < min THEN min = a(i, j)
    NEXT i
    vek(j) = min
NEXT j
 
FOR i = 1 TO m
    PRINT USING "###   "; vek(i);
NEXT i
 
END

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

Задача кода - найти вектор составленный из минимальных элементов по столбцам.
Создается массив размером m строк, в котором будут храниться минимальные значения a(i, j) по столбцам.
Происходит итерация по всем элементам массива a(i, j) от i = 1 до n и j = 1 до m.
Если значение a(i, j) меньше текущего минимального значения min, то оно присваивается переменной min.
После завершения внутреннего цикла, минимальное значение a(i, j) присваивается элементу массива vek(j).
После завершения внешнего цикла, значения массива vek(j) выводятся на экран через пробел.
В конце программы выводится символ ### для разделения значений вектора.