FOR i=9 TO 1 STEP-1 SWAP CARD[i],CARD[RND(i)] NEXT にするとさらに正確ですね。