Hi there!!
sorry for gettin back to you so late... had a pile of stuff due in
Right Iv had a little bash at writing those 2 procedures. They dont seem to compile properly
as i dont seem to grasp them that well...yet


type TColours = (Blue, Red, Green, Black);
var A: array[0..3] of TColours;
B: array[0..11] of TColours;


procedure SetColour;
{will this randomly set the elements to different different colours or just set a whole array to a random colour. Also am i using the logic notation correctly?}
begin
repeat
randomize;
random(A);
random(B);

until
B = not(black) and A = not(black);

end;

procedure RemovePairs(var C: array of TColours);
{am i declarin the param correctly? basically i wish to write removepairs(X) where X is the array to be checked}
var i : integer;
begin

for i = 1 to high(C) do
begin
if C[i] = C[i-1] then
C[i-1] := black
if not C[i] = C[i+1] then
C[i] := black
end;
end;

{Does high return the last element of the array? and secondly does this make any sense? im trying to get it to go through each element and if 2 next to each other are the same colour then they both turn black}


i really appreciate your time and detailed replys almonster your a star!
(in our so called practical sessions there arn't enough helpers to go around im lucky if i get help for one particular thing so thanks again all of you lot)