Упорядочить строки по убыванию элементов главной диагонали

CLS
DIM X(5, 5)
FOR i = 1 TO 5
FOR j = 1 TO 5
  IF i = j  THEN
X(i, j) = INT(20 * RND(i))
   END IF
   LOCATE i * 2, j * 4 – 3
   PRINT X(i, j);
NEXT j, i

14   0    0   0   0              
0    10   0   0   0                
0     0   11  0   0                
0     0    0   5   
0     0    0   0   6

14    0     0   0   0
0   11    0   0   0
0     0   10   0   0
0     0     0   6   0
0     0     0   0   5

FOR i=1 TO 5
FOR j=2 TO 5
IF X(j,j) >X(j-1, j-1) THEN SWAP X(j,j), X(j-1,j-1)
NEXT
NEXT

n = 5
DIM x(n, n) AS INTEGER, t(n) AS INTEGER
 
Begin:
RANDOMIZE (TIMER)
CLS
 
PRINT "  Исходная матрица:": PRINT
FOR i = 1 TO n
 FOR j = 1 TO n
     x(i, j) = INT(20 * RND(i))
     PRINT USING "####"; x(i, j);
 NEXT j
 t(i) = x(i, i): PRINT
NEXT i: PRINT
 
PRINT "  Исходная главная диагональ:"
FOR i = 1 TO n
    PRINT USING "####"; t(i);
NEXT i: PRINT : PRINT
 
FOR i = 1 TO n
 FOR j = i + 1 TO n
   IF t(i) < t(j) THEN
      SWAP t(i), t(j)
      FOR k = 1 TO n
          SWAP x(i, k), x(j, k)
      NEXT k
   END IF
 NEXT j
NEXT i
 
PRINT "  Отсортированная главная диагональ:"
FOR i = 1 TO n
    PRINT USING "####"; t(i);
NEXT i: PRINT : PRINT
 
PRINT "  Матрица результата:": PRINT
FOR i = 1 TO n
 FOR j = 1 TO n
     PRINT USING "####"; x(i, j);
 NEXT j
 PRINT
NEXT i: PRINT
 
PRINT "<ESC> - Выход, <Enter> - Повторить ...";
 
DO
Ch$ = INKEY$
SELECT CASE Ch$
       CASE CHR$(27)
            END
       CASE CHR$(13)
            GOTO Begin
END SELECT
LOOP WHILE Ch$ = ""
END