Массив: Произвести между матрицами обмен числами так, чтобы max первой матрицы не превышало min второй

DIM a(1 TO 5, 1 TO 5) AS LONG, b(1 TO 5, 1 TO 5) AS LONG
DIM i AS LONG, j AS LONG, min AS LONG, max AS LONG
DIM x1 AS LONG, x2 AS LONG, y1 AS LONG, y2 AS LONG
 
RANDOMIZE TIMER
FOR i = 1 TO 5
FOR j = 1 TO 5
    a(i, j) = INT(RND * 100 + 1)
    b(i, j) = INT(RND * 100 + 1)
NEXT j, i
 
'вывод результата
'Cells(1, 1).Resize(5, 5) = a
'Cells(1, 7).Resize(5, 5) = b
DO
    FOR i = 1 TO 5
    FOR j = 1 TO 5
        IF i = 1 AND j = 1 THEN
            max = a(i, j)
            x1 = i
            y1 = j
            min = b(i, j)
            x2 = i
            y2 = j
        ELSE
            IF max < a(i, j) THEN
                max = a(i, j)
                x1 = i
                y1 = j
            END IF
            IF min > b(i, j) THEN
                min = b(i, j)
                x2 = i
                y2 = j
            END IF
        END IF
    NEXT j, i
    IF max > min THEN
        a(x1, y1) = min
        b(x2, y2) = max
    ELSE
        EXIT DO
    END IF
LOOP
'вывод результата
'Cells(7, 1).Resize(5, 5) = a
'Cells(7, 7).Resize(5, 5) = b

DECLARE SUB RAND ()
DECLARE SUB minn (x!(), min!, im!, jm!)
DECLARE SUB maxx (x!(), max!, im!, jm!)
CLS
RAND
DIM SHARED n
 
n = 5
DIM A(n, n)
DIM B(n, n)
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = FIX(40 * RND) - 20
   LOCATE i, 5 * j - 2
   PRINT A(i, j);
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   B(i, j) = FIX(40 * RND) - 20
   LOCATE i, 5 * j + 30
   PRINT B(i, j);
NEXT j, i
PRINT : PRINT
 
FOR k = 1 TO n * n
   CALL maxx(A(), max, i1, j1)
   CALL minn(B(), min, i2, j2)
   SWAP A(i1, j1), B(i2, j2)
NEXT
 
FOR i = 1 TO n
FOR j = 1 TO n
   LOCATE i + 6, 5 * j - 2
   PRINT A(i, j);
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   LOCATE i + 6, 5 * j + 30
   PRINT B(i, j);
NEXT j, i
END
 
SUB maxx (x(), max, im, jm)
   max = x(1, 1)
   im = 1
   jm = 1
 
   FOR i = 1 TO n
   FOR j = 1 TO n
      IF max < x(i, j) THEN
         max = x(i, j)
         im = i
         jm = j
      END IF
   NEXT j, i
END SUB
 
SUB minn (x(), min, im, jm)
   mix = x(1, 1)
   im = 1
   jm = 1
 
   FOR i = 1 TO n
   FOR j = 1 TO n
      IF mix > x(i, j) THEN
         mix = x(i, j)
         im = i
         jm = j
      END IF
   NEXT j, i
END SUB
 
SUB RAND
   RANDOMIZE TIMER
END SUB