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

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);
     S = S + X(i, j)
NEXT j, i
     PRINT
PRINT “ Сумма эл-тов массива: “ ;  S

14   0    0   0   0
0    10   0   0   0
0     0   11  0   0
0     0    0   5   0
0     0    0   0   6
Сумма эл-ов массива:  46

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

DEFINT A-Z
OPTION BASE 1
CLS
RANDOMIZE TIMER
 
'zapolnenie iznahalnogo massiva
DIM a(5, 5)
COLOR 15: PRINT "Bilo:"
FOR i = 1 TO 5
FOR j = 1 TO 5
    a(i, j) = INT(RND * 100)
    IF i = j THEN COLOR 2 ELSE COLOR 7
    PRINT a(i, j),
NEXT j
NEXT i
 
'vipiska glavnoy diagonali & nahojdenie maksimalnogo elementa
DIM b(5, 5)
max = a(1, 1)
FOR i = 1 TO 5
b(5, i) = a(i, i)
IF max < a(i, i) THEN max = a(i, i)
NEXT i
 
'sozdanie massiva s sortirovanimi strokami
COLOR 15: PRINT "Stalo:"
i = 1
WHILE i <= 5
    'nahojdenie nomera stroki s minimalnim elementom diagonali
    x = 1
    FOR j = 2 TO 5
        IF b(5, x) > b(5, j) THEN x = j
    NEXT j
 
    'zapis stroki s minimalnim na danniy moment elementom
    FOR j = 1 TO 5
        b(i, j) = a(x, j)
        IF j = x THEN COLOR 2 ELSE COLOR 7
        PRINT b(i, j),
    NEXT j
    'minimalniy element delaem bolshe maksimalnogo
    IF i < 5 THEN b(5, x) = max + 1
    i = i + 1
WEND
COLOR 7

CLS
RANDOMIZE TIMER
 
DIM x(5, 5) ' исходный массив
DIM d(5)     ' массив диагонали
 
FOR i = 1 TO 5  ' заполнение массивов
FOR j = 1 TO 5
   x(i, j) = INT(90 * RND)
   IF i = j THEN d(i) = x(i, i)
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO 5  ' преобразование массива
FOR j = i + 1 TO 4
   IF d(i) > d(j) THEN
      FOR k = 1 TO 5
         SWAP x(i, k), x(j, k)
      NEXT k
   END IF
NEXT j, i
 
FOR i = 1 TO 5  ' вывод результата
FOR j = 1 TO 5
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT

CLS
RANDOMIZE TIMER
DIM x(5, 5), d(5)
 
FOR i = 1 TO 5
FOR j = 1 TO 5
    x(i, j) = INT(90 * RND)
    IF i = j THEN d(i) = x(i, j)
    PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO 4
FOR j = i + 1 TO 5
    IF d(i) > d(j) THEN
        FOR k = 1 TO 5
            SWAP x(i, k), x(j, k)
        NEXT k
        SWAP d(i), d(j)
    END IF
NEXT j, i
 
FOR i = 1 TO 5
FOR j = 1 TO 5
    PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT