Uses
  GraphABC;

var
  aColor: array[1..9] of Color :=
  (clBlack, clRed, clGreen, clBlue, clPink, clCyan, clBrown, clMagenta, clGray);
  i: integer;

procedure ColorShift();
var
  i: integer;
  t: color;
begin
  t := aColor[9];
  for i := 8 downto 1 do aColor[i + 1] := aColor[i];
  aColor[1] := t
end;

begin
  SetWindowSize(800, 600);
  repeat
    for i := 1 to 9 do
    begin
      SetPenColor(aColor[i]);
      DrawEllipse(200 + 25 * (i - 1), 100, 600 - 25 * (i - 1), 500);
    end;
    ColorShift;
    Sleep(500);
    ClearWindow
  until false
end.