Написать программу заполнение двумерной матрицы числами Фибоначчи- QBasic(Бейсик)

INPUT "vvedite razmer matricy ", n
DIM a(n, n), b(n * n)
b(1) = 1
b(2) = 1
FOR i = 3 TO n * n
    b(i) = b(i - 1) + b(i - 2)
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        k = k + 1
        a(i, j) = b(k)
    NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT