Search:

If somebody says, "give me card #53," then perhaps a sorted deck makes sense on its own.

That doesn't model brewbuck's idea. It relies on the fact that Table[j] always equals j+1. So remove your j loop and your if and simply set SortedData[Data[i]+1] = Data[i].

I would make either 10...