Найти максимум среди четных чисел по диагоналям матрицы - QBasic

DEFINT A, D, I-J, N
OPTION BASE 1
DIM a(5, 5)
CLS
RANDOMIZE TIMER
FOR i = 1 TO 5
   FOR j = 1 TO 5
      a(i, j) = INT((20 * RND) - 10)
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
n = 0
FOR i = 1 TO 5
   IF (a(i, i) MOD 2) = 0 THEN n = n + 1
NEXT i
IF n = 0 THEN
   PRINT "Diagonal 1: thetnyh thisel NET"
   STOP
END IF
 
n = 0
FOR i = 1 TO 5
   IF (a(i, 6 - i) MOD 2) = 0 THEN n = n + 1
NEXT i
IF n = 0 THEN
   PRINT "Diagonal 2: thetnyh thisel NET"
   STOP
END IF
 
d1 = -32768
d2 = -32768
 
FOR i = 1 TO 5
   IF (a(i, i) MOD 2 = 0) AND (a(i, i) > d1) THEN
      d1 = a(i, i)
      n1 = i
   END IF
NEXT i
 
FOR i = 1 TO 5
   IF (a(i, 6 - i) MOD 2 = 0) AND a(i, 6 - i) > d2 THEN
      d2 = a(i, 6 - i)
      n2 = 6 - i
   END IF
NEXT i
 
IF n1 = n2 THEN
   PRINT "PERESTANOVKA NE NUSHNA"
   STOP
END IF
 
FOR i = 1 TO 5
   SWAP a(i, n1), a(i, n2)
NEXT i
 
PRINT
FOR i = 1 TO 5
   FOR j = 1 TO 5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
END