Заполнить двумерный массив

CLS
 
DATA   1, 2, 3, 4, 5, 6, 7
DATA  24,25,26,27,28,29, 8
DATA  23,40,41,42,43,30, 9
DATA  22,39,48,49,44,31,10
DATA  21,38,47,46,45,32,11
DATA  20,37,36,35,34,33,12
DATA  19,18,17,16,15,14,13
 
DIM x(7, 7) AS LONG
 
FOR i = 1 TO 7
FOR j = 1 TO 7
   READ x(i, j)
   PRINT USING "###"; x(i, j);
NEXT: PRINT
NEXT: PRINT

DECLARE SUB M (k!)
CLS
 
DIM SHARED n
DIM SHARED n1
DIM SHARED z
n = 7
n1 = n + 1
z = 0
DIM SHARED x(n, n) AS LONG
 
FOR k = 1 TO n \ 2
   CALL M(k)
NEXT
 
IF n MOD 2 THEN x(n1 \ 2, n1 \ 2) = n * n
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "###"; x(i, j);
NEXT: PRINT
NEXT: PRINT
END
 
SUB M (k)
   FOR i = k TO n - k
      x(k, i) = z + i
   NEXT
   z = z + n1 - 2 * k
 
   FOR i = k TO n - k
      x(i, n1 - k) = z + i
   NEXT
   z = z + n1 - 2 * k
 
   FOR i = k TO n - k
      x(n1 - k, n1 - i) = z + i
   NEXT
   z = z + n1 - 2 * k
 
   FOR i = k TO n - k
      x(n1 - i, k) = z + i
   NEXT
   z = z + n - 2 * k
END SUB