Найти минимальный элемент среди минимальных элементов столбцов двумерного массива чисел — QBasic(Бейсик)

CLS
RANDOMIZE TIMER
INPUT "Vvedite kol-vo strok ", n
INPUT "Vvedite kol-vo stolbtsov ", m
DIM a(n, m), min(m)
   FOR i = 1 TO n
     FOR j = 1 TO m
        a(i, j) = INT(RND * 20) - 10
     NEXT j
   NEXT i
FOR i = 1 TO n
      FOR j = 1 TO m
       PRINT a(i, j);
      NEXT j
       PRINT
NEXT i
 
FOR j = 1 TO m
min(j) = a(1, j)
FOR i = 1 TO n
IF a(i, j) < min(j) THEN min(j) = a(i, j)
NEXT
NEXT
minmin = min(1)
FOR i = 1 TO m
IF min(i) < minmin THEN minmin = min(i)
NEXT
PRINT "minimum sredi minumalnyh="; minm