Help me find the reason why the program doesn't work (Wolfram Mathematica)

The matrix PermutationMatrix doesn't change after the loop.