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

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