Расставить строки матрицы так, чтобы элементы в первом столбце были упорядочены по убыванию - QBasic

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

Тема 5. Двумерные массивы Дана матрица N x M, состоящая из натуральных чисел. Расставить строки таким образом, чтобы элементы в первом столбце были упорядочены по убыванию. Вывести результат на экран.

Решение задачи: «Расставить строки матрицы так, чтобы элементы в первом столбце были упорядочены по убыванию»

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

CLS
RANDOMIZE TIMER
CONST n = 4
CONST m = 8
DIM A(1 TO n, 1 TO m) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   A(i, j) = 9 * RND
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n - 1
FOR k = i + 1 TO n
   IF A(i, 1) < A(k, 1) THEN
      FOR j = 1 TO m
         SWAP A(i, j), A(k, j)
      NEXT j
   END IF
NEXT k, i
 
FOR i = 1 TO n
FOR j = 1 TO m
   PRINT A(i, j);
NEXT j: PRINT
NEXT i
END

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

В первой части кода создается матрица A размером n на m и заполняется случайными числами от 0 до 89.
Затем в первой части кода выводится на экран содержимое матрицы A.
Во второй части кода производится сортировка элементов в первом столбце матрицы A по убыванию.
В третьей части кода выводится на экран отсортированное содержимое матрицы A.