Найти в каждом столбце матрицы наименьший элемент и поменять его местами с элементом главной диагонали - 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

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

В этом коде сначала создается матрица случайных чисел. Затем в цикле находят наименьший элемент в каждом столбце и меняют его местами с элементом главной диагонали. После этого выводят получившуюся матрицу.