Преобразование квадратной матрицы

CLS
RANDOMIZE TIMER
CONST n = 6
DIM x(n, n) AS INTEGER
DIM imax(n) AS INTEGER
DIM jmax(n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   x(i, j) = 40 * RND - 20
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR k = 1 TO n
   max = -40
 
   FOR i = 1 TO n
   FOR j = 1 TO n
      IF i <> j THEN
      IF max < x(i, j) THEN
         max = x(i, j)
         imax(k) = i
         jmax(k) = j
      END IF
      END IF
   NEXT j, i
 
   FOR u = k TO n
      i = imax(u)
      j = jmax(u)
 
      IF x(k, k) < x(i, j) THEN
         SWAP x(k, k), x(i, j)
      ELSEIF x(k, k) = x(i, j) AND k < n THEN
         SWAP x(k + 1, k + 1), x(i, j)
      END IF
   NEXT u
NEXT k
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT

DEFINT A-Z
OPTION BASE 1
CLS
RANDOMIZE TIMER
CONST n = 6
DIM x(n, n)
 
FOR i = 1 TO n
FOR j = 1 TO n
   x(i, j) = 40 * RND - 20
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT: PRINT
 
DO
    flag = 0
    ' Ищет минимальный элемент главной диагонали
    min = 1
    FOR k = 2 TO n
        IF x(min, min) > x(k, k) THEN
        min = k
        END IF
    NEXT k
    IF om = min THEN EXIT DO ELSE om = min
    ' Ищет максимальный элемент в матрице кроме главной диагонали
    imax = min
    jmax = min
    FOR i = 1 TO n
    FOR j = 1 TO n
        IF x(imax, jmax) < x(i, j) AND i <> j THEN
            imax = i
            jmax = j
        END IF
    NEXT j, i
    ' Перестановка минимального из диагонали с максимальным в остальной матрице
    IF imax <> min OR jmax <> min THEN
        SWAP x(min, min), x(imax, jmax)
        per = per + 1
        flag = 1
    END IF
LOOP UNTIL flag = 0
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT
PRINT : PRINT "Perestanovok:"; per