Сумма элементов массива, QBasic Опции

[Гелла]

У меня задача: дан чиловой массив X(4,3), нужно найти общую сумму первого и третьего столбцов.
Моя программа почему то не считает эти суммы, она только вводит маччив и заканчивает..ароде бы все правильно сделано.. где здесь может быть ошибка?

Код

CLS
DIM x(1 TO 4, 1 TO 3), i, j AS INTEGER, s1, s2, s3 AS SINGLE
FOR i = 1 TO 4
FOR j = 1 TO 3
PRINT "vv znach elta", i, ",", j, ")"
INPUT x(i, j)
NEXT j
NEXT i
FOR i = 1 TO 4
FOR j = 1 TO 3
PRINT x(i, j);
NEXT j
NEXT i
s1 = 0
FOR j = 1 TO 3
s1 = s1 + x(1, j)
NEXT j

s2 = 0
FOR j = 1 TO 3
s2 = s2 + x(3, j)
NEXT j
s3 = s1 + s2
PRINT 'obsch summa eltov 1go i 3go stolbtsa",s3
END