Hey, a quick question, how would I go about making my Pascal program select a random item from an array of about 200?

IE,

Item[1] = 'Blue' Weight: 1
Item[2] = 'Red' Weight: 3
Item[3] = 'Yellow' Weight: 2

I want it to weigh each differently, and pick one, any one. 1 means common, 3 means rare.

Without object pascal, preferably... Just plain old pascal. I don't know enough OOP to do anything like this in it, so if you give OOP code please be prepared to help me implement and understand this to every extent..