Hi there

I need to implement a function to check if all the elements are red
This is what i have come up with. How can I do this recursively?

[pascal]
Function AllRed(A:array of TColours): Boolean;
var i,j : integer;
begin
begin
for i := 0 to high(A) do
begin
if A[i] = red then
inc(j)
end;
end;
if j = high(A) then
result := true;
end;
[/pascal]


thanks in advance

Derek