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

CLS
RANDOMIZE TIMER
INPUT K, N
DIM C(K, N)
 
FOR J = 1 TO K
FOR I = 1 TO N
        C(J, I) = INT(RND * 100)
        PRINT C(J, I);
NEXT I
PRINT ""
NEXT J
 
 MINZ = 100
FOR J = 1 TO K
        FOR I = 1 TO N
                 IF C(J, I) < MINZ THEN MINZ = C(J, I): MINI = I
         NEXT I
         C(J, MINI) = C(J, J)
         C(J, J) = MINZ
         MINZ = 100
 
NEXT J
  PRINT ""
 
FOR J = 1 TO K
FOR I = 1 TO N
       PRINT C(J, I);
NEXT I
PRINT ""
NEXT J