Выведите ряд квадратов, закрашенных всеми цветами по порядку - PascalABC.NET

uses GraphABC;
var
  x,dx,i:integer;
  c:array of color=(clBlack,clBlue,clGreen,clCyan,clRed,clMagenta,clBrown,
  clLightGray,clGray,clLightBlue,clLime, clAquamarine,clYellow,clWhite);//какие надо цвета и в каком порядке так и впишите
begin
    SetBrushColor(clBlack);
    FillRect(0,0,WindowWidth,WindowHeight);
    SetPenColor(clWhite);
    dx:=WindowWidth div Length(c);
    for i:=0 to Length(c)-1 do begin
    SetBrushColor(c[i]);
    Rectangle(x,WindowHeight div 2-dx div 2,x+dx,WindowHeight div 2+dx div 2);    
    FloodFill(x+5,WindowHeight div 2,c[i]);
    x:=x+dx;
  end;
end.