Вывести квадратную матрицу на экран- QBasic(Бейсик)

INPUT n
DIM a(n, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        INPUT "vvedite element "; a(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j); " ";
    NEXT
    PRINT
NEXT