Найти локальный максимум

DIM r&, c&, ur&, uc&, rr&, cc&, ri&, ra&, ci&, ca&
RANDOMIZE TIMER
ur = 6 'ñòðîê
uc = 9 'ñòîëáöîâ
REDIM a(1 TO ur, 1 TO uc)
FOR r = 1 TO ur
  FOR c = 1 TO uc
    a(r, c) = INT(RND * 10)
'    Cells(r, c) = a(r, c)
  NEXT
NEXT
 
FOR r = 1 TO ur
  IF r = 1 THEN ri = 1 ELSE ri = r - 1
  IF r = ur THEN ra = ur ELSE ra = r + 1
  FOR c = 1 TO uc
    IF c = 1 THEN ci = 1 ELSE ci = c - 1
    IF c = uc THEN ca = uc ELSE ca = c + 1
    FOR rr = ri TO ra
      FOR cc = ci TO ca
        IF rr <> r OR cc <> c THEN
          IF a(r, c) <= a(rr, cc) THEN GOTO L 'a(r,c) - íå ëîêàëüíûé ìàêñèìóì
        END IF
      NEXT
    NEXT
    'a(r,c) - ëîêàëüíûé ìàêñèìóì, попробуйте вывести самостоятельно
    'Cells(r, c).Select
L:
  NEXT
NEXT

CLS
RANDOMIZE TIMER
n = 4: m = 6
DIM x(n + 1, m + 1)   AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   x(i, j) = 80 * RND
   PRINT USING "####"; x(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO m
   max = x(i, j)
   p = 0
   FOR k = -1 TO 1
   FOR l = -1 TO 1
      IF max > x(i + k, j + l) THEN p = p + 1
   NEXT l, k
   IF p = 8 THEN
      x(i, j) = -x(i, j)
      GOTO 100
   END IF
NEXT j, i
 
100
FOR i = 1 TO n
FOR j = 1 TO m
   PRINT USING "####"; x(i, j);
NEXT j: PRINT
NEXT i
END