Дана матрица 3-го порядка. уменьшить отрицательные элементы матрицы в 2 и 3 столбцах на 4 единицы.- QBasic(Бейсик)

DIM a(3,3) 
FOR i=1 TO 3
FOR i=1 TO 3
input "vvedite element ",a(i,j)
NEXT 
NEXT 
print "ishodnyj massiv "
FOR i=1 TO 3
FOR i=1 TO 3
print a(i,j);
NEXT 
print
NEXT 
FOR i=1 TO 3
FOR j=2 TO 3
if a(i,j)<0 then a(i,j)=a(i,j) - 4
NEXT 
NEXT 
print "novyj massiv "
FOR i=1 TO 3
FOR i=1 TO 3
print a(i,j);
NEXT 
print
NEXT