В заданом (четвертом) секторе матрицы поменять местами наибольший и наименьший элементы - QBasic

CLS
RANDOMIZE TIMER
m = 7
DIM B(1 TO m, 1 TO m) AS INTEGER
 
FOR i = 1 TO m
FOR j = 1 TO m
   B(i, j) = 80 * RND - 40
   PRINT USING "####"; B(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
 
Max = B(m, 2)
Min = B(m, 2)
iMax = m
jMax = 2
iMin = m
jMin = 2
 
FOR i = 1 TO m
FOR j = 1 TO m
   IF i > j AND i + j > m + 1 THEN
      IF Max < B(i, j) THEN
         Max = B(i, j)
         iMax = i
         jMax = j
      END IF
 
      IF Min > B(i, j) THEN
         Min = B(i, j)
         iMin = i
         jMin = j
      END IF
   END IF
NEXT j, i
 
SWAP B(iMax, jMax), B(iMin, jMin)
 
FOR i = 1 TO m
FOR j = 1 TO m
   PRINT USING "####"; B(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
PRINT iMax; jMax; "<=>"; iMin; jMin
 
END