Ввести матрицу A(5*5). Поменять местами значения компонентов матрицы, симметричных относительно главной диагонали — QBasic(Бейсик)

DIM A(1 TO 5, 1 TO 5)
FOR i = 1 TO 5
  FOR j=1 TO 5
    PRINT "A("; i; ","; j; ") = "
    INPUT "", A(i,j)
  NEXT j
NEXT i
 
FOR i = 1 TO 5
  FOR j=1 TO 5
    IF i>j THEN
      tmp=A(i,j)
      A(i,j)=A(j,i)
      A(j,i)=tmp
    END IF
  NEXT j
NEXT i