Заполнить квадратную матрицу следующим образом

CLS
K = 9
DIM A(K, K)
FOR Y = 0 TO K
    FOR X = 0 TO K
        A(Y, X) = Y + X
        IF X = Y THEN
           A(Y, X) = -2
        END IF
        IF X = K - Y THEN
           A(Y, X) = -2
        END IF
        IF X = 0 AND Y = 0 THEN
           A(Y, X) = -1
        END IF
        IF X = 0 AND Y = K THEN
           A(Y, X) = -1
        END IF
        IF X = K AND Y = 0 THEN
           A(Y, X) = -1
        END IF
        IF X = K AND Y = K THEN
           A(Y, X) = -1
        END IF
        LOCATE Y + 3, X * 4 + 3
        PRINT USING "##"; A(Y, X);
    NEXT X
NEXT Y

CLS
k = 9
DIM A(1 TO k, 1 TO k)
FOR y = 1 TO k
    FOR x = 1 TO k
        IF (y = 1) OR (y = k) OR (x = 1) OR (x = k) THEN
           A(y, x) = -1
             ELSEIF (x = y) OR (x = k - y + 1) THEN
                    A(y, x) = -2
                                           ELSE
                    A(y, x) = y + x
        END IF
        LOCATE y * 2 + 1, x * 6 + 3
        PRINT USING "##"; A(y, x);
    NEXT x
NEXT y