Как в Pascal ABC net можно переключать цвета у нарисованного круга? типо светофор

Нарисовать на том же месте круг другого цвета.

посмотри эту
uses graphABC,crt;
var
a:char;
i:integer;
begin
setwindowsize(680,680);
{красный}
for i:=1 to 2 do begin
Rectangle(217,57,324,372);
Rectangle(265,371,283,588);
Rectangle(228,587,314,600);
circle(272,118,35);
circle(272,213,35);
circle(272,305,35);
floodfill(240,167,clGray);
floodfill(275,470,clGray);;
floodfill(274,595,clGray);
floodfill(280,115,clRed);
floodfill(280,215,clGray);
floodfill(280,315,clGray);
readln;
{жёлтый}
Rectangle(217,57,324,372);
Rectangle(265,371,283,588);
Rectangle(228,587,314,600);
circle(272,118,35);
circle(272,213,35);
circle(272,305,35);
floodfill(240,167,clGray);
floodfill(275,470,clGray);;
floodfill(274,595,clGray);
floodfill(280,115,clGray);
floodfill(280,215,clYellow);
floodfill(280,315,clGray);
readln;
{зелёный}
Rectangle(217,57,324,372);
Rectangle(265,371,283,588);
Rectangle(228,587,314,600);
circle(272,118,35);
circle(272,213,35);
circle(272,305,35);
floodfill(240,167,clGray);
floodfill(275,470,clGray);;
floodfill(274,595,clGray);
floodfill(280,115,clGray);
floodfill(280,215,clGray);
floodfill(280,315,clGreen);
readln;
{жёлтый}
Rectangle(217,57,324,372);
Rectangle(265,371,283,588);
Rectangle(228,587,314,600);
circle(272,118,35);
circle(272,213,35);
circle(272,305,35);
floodfill(240,167,clGray);
floodfill(275,470,clGray);;
floodfill(274,595,clGray);
floodfill(280,115,clGray);
floodfill(280,215,clYellow);
floodfill(280,315,clGray); end;
readln;
end.

Я даже напишу тебе все существующие цвета в паскале:

clAquamarine
clAzure
clBeige
clBisque
clBlack
clBlanchedAlmond
clBlue
clBlueViolet
clBrown
clBurlyWood
clCadetBlue
clChartreuse
clChocolate
clCoral
clCornflowerBlue
clCornsilk
clCrimson
clCyan
clDarkBlue
clDarkCyan
clDarkGoldenrod
clDarkGray
clDarkGreen
clDarkKhaki
clDarkMagenta
clDarkOliveGreen
clDarkOrange
clDarkOrchid
clDarkRed
clDarkTurquoise
clDarkSeaGreen
clDarkSlateBlue
clDarkSlateGray
clDarkViolet
clDeepPink
clDarkSalmon
clDeepSkyBlue
clDimGray
clDodgerBlue
clFirebrick
clFloralWhite
clForestGreen
clFuchsia
clGainsboro
clGhostWhite
clGold
clGoldenrod
clGray
clGreen
clGreenYellow
clHoneydew
clHotPink
clIndianRed
clIndigo
clIvory
clKhaki
clLavender
clLavenderBlush
clLawnGreen
clLemonChiffon
clLightBlue
clLightCoral
clLightCyan
clLightGray
clLightGreen
clLightGoldenrodYellow
clLightPink
clLightSalmon
clLightSeaGreen
clLightSkyBlue
clLightSlateGray
clLightSteelBlue
clLightYellow
clLime
clLimeGreen
clLinen
clMagenta
clMaroon
clMediumBlue
clMediumOrchid
clMediumAquamarine
clMediumPurple
clMediumSeaGreen
clMediumSlateBlue
clMoneyGreen
clPlum
clMistyRose
clNavy
clMidnightBlue
clMintCream
clMediumSpringGreen
clMoccasin
clNavajoWhite
clMediumTurquoise
clOldLace
clOlive
clOliveDrab
clOrange
clOrangeRed
clOrchid
clPaleGoldenrod
clPaleGreen
clPaleTurquoise
clPaleVioletRed
clPapayaWhip
clPeachPuff
clPeru
clPink
clMediumVioletRed
clPowderBlue
clPurple
clRed
clRosyBrown
clRoyalBlue
clSaddleBrown
clSalmon
clSandyBrown
clSeaGreen
clSeaShell
clSienna
clSilver
clSkyBlue
clSlateBlue
clSlateGray
clSnow
clSpringGreen
clSteelBlue
clTan
clTeal
clThistle
clTomato
clTransparent
clTurquoise
clViolet
clWheat
clWhite
clWhiteSmoke
clYellow
clYellowGreen