Вывести массив и поменять местами 1й и 3й столбец- Basic(Бейсик)

DIM a(4,4)
DATA 2, 2, 2, 2, 0, 1, 0, 2, 0, 0, 1, 3, 2, 0, 3, 0
FOR i=1 TO 4 
FOR j=1 TO 4
READ a(i,j)
NEXT
NEXT
PRINT"ishodnyj massiv"
FOR i=1 TO 4 
FOR j=1 TO 4
PRINT a(i,j);" ";
NEXT
PRINT
NEXT
FOR i=1 TO 4
SWAP a(i,1),a(i,3)
NEXT
PRINT"novyj massiv"
FOR i=1 TO 4 
FOR j=1 TO 4
PRINT a(i,j);" ";
NEXT
PRINT
NEXT
 
NEXT