Hi Leighton,
A line-by-line transliteration from Basic to WL is not the best approach. Try to translate concepts and functionality, not lines of code.
To generate a deck of cards:
ranks = {2, 3, 4, 5, 6, 7, 8, 9, 10, J, Q, K, A};
suits = {\[DiamondSuit], \[ClubSuit], \[HeartSuit], \[SpadeSuit]};
deck = Tuples[{ranks, suits}]
Pick a card at random
RandomChoice@deck
(* {K, \[DiamondSuit]} *)
Hope that helps.
