Well, this could be done one of two ways. The first is the simplest, but it assumes that you're only increasing ColorFind (and the array's size) after you find a color. In that case, you'd just have to run through the array, kind of like this:
SCAR Code:
var
i : integer;
begin
for i:= 0 to High(colorCoords) do
Writeln(IntToStr(colorCoords[i].X) + ',' + IntToStr(colorCoords[i].Y));
end.
The second way is similar to the first, but it checks to make sure that the values are not 0.
SCAR Code:
var
i : integer;
begin
for i:= 0 to High(colorCoords) do
if ((colorCoords[i].X <> 0) or (colorCoords[i].Y <> 0)) then
Writeln(IntToStr(colorCoords[i].X) + ',' + IntToStr(colorCoords[i].Y));
end.