Hello all

Im back again. Im starting the second part of my course, this time i need to implement a version of the "same game" on delphi. The first task reads;

Define an enumerated type TColours, with four possible values: Blue, Red, Green, Black.
Declare two 1 dimensional arrays of type TColours with 4 and 12 elements respectively
Write a procedure SetColour that will randomly set the elements of these arrays to: Blue, Red or Green.
Write a procedure RemovePairs that will accept one of these arrays and
replace adjacent elements of the same colour by the Black element.
Note procedures mean user defined procedures not event handlers

I believe to define the arrays and types i need to do something like this:

type TColours = (Blue, Red, Green, Black);

type TColoursA = array [0..4] of TColours ?
type TColoursA = array [0..12] of TColours ?

I cant figure out how to start this. Any pointers will be gratefully appreciated. A version of the so called same game can be found here
http://javascript.internet.com/games/same-game.html

cant help but be a delphi newb grrrrr thanks for your time guys