Вывести небольшое число каждого столбца матрицы - QBasic

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

Создать матрицу g(5,7). найти количество положительных чисел в строках,вывести их. Вывести найбольшое число каждого столбца. есть начало дальше пытался сделать с оператором for , if , then не получается скорее всего я не правильно понял тему вот набросок точнее начало

CLS
REM " Labaratornya rabota 6"
REM " Ivanenko S.V. grupa ty-1304 variant 7"
DIM g(5, 7)
RANDOMIZE TIMER
PRINT " nachalniy masiv G razmerom 5*7:"
 FOR n = 1 TO 5
  FOR p = 1 TO 7
g(5, 7) = INT(60 * RND - 40)
        PRINT g(5, 7); "  ";
 
  NEXT
 PRINT
NEXT
PRINT "kolichestvo pologitelnihelementov v rajdoi stroke"
 z = 0
  FOR n = 1 TO 5
     FOR p = 1 TO 7 
     IF b(n) > 0 THEN
 z = z + 1
    END IF
   NEXT 
 NEXT
 PRINT z

Решение задачи: «Вывести небольшое число каждого столбца матрицы»

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

CLS
REM " Labaratornya rabota 6"
REM " Ivanenko S.V. grupa ty-1304 variant 7"
DIM g(5, 7)
DIM otv(5)
RANDOMIZE TIMER
PRINT " nachalniy masiv G razmerom 5*7:"
 FOR p = 1 TO 5
  FOR n = 1 TO 7
g(p, n) = INT(60 * RND - 40)
        PRINT g(p, n); "  ";
        NEXT
 PRINT
NEXT
PRINT "kolichestvo pologitelnih elementov v kajdoi stroke"
   FOR n = 1 TO 5
   otv(n) = 0
         FOR p = 1 TO 7
                IF g(n, p) > 0 THEN
                otv(n) = otv(n) + 1
                END IF
 
        NEXT
  NEXT
 
FOR n = 1 TO 5
PRINT "v "; n; " stroke - "; otv(n)
NEXT

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

Задается размер матрицы g(5,7) и переменной otv(5).
В цикле FOR для каждого элемента матрицы g(p,n) вычисляется случайное число в диапазоне от -40 до 60 и присваивается соответствующему элементу матрицы g(p,n).
В цикле FOR для каждой строки матрицы g(n) выводится на экран количество положительных элементов в строке.
В цикле FOR для каждой строки матрицы g(n) вычисляется количество положительных элементов и присваивается соответствующему элементу матрицы otv(n).
Выводится на экран количество положительных элементов в каждой строке матрицы g(n).