Графика

[Кинива]

Здравствуйте,поможете залить низ "clGray" ,остальное всё выходит

Program oval;
uses GraphABC;
var i,x,y,r1,r2,r3,r4,r5,r6,r7:integer;
begin
lockdrawing;
for i:=1 to 500 do
begin
x:=WindowWidth div 2;
y:=WindowHeight div 2;
r1:=50;
r2:=80;
r3:=50;
r4:=70;
SetBrushColor(clGray);
Circle(x,y-r1,r1);
Circle(x,y+r2,r2);
SetBrushColor(clLtGray);
Ellipse(x-r3,y+r2-r4,x+r3,y+r2+r4);
r5:=24;
Circle(x-r5,y-r1-10,r5);
Circle(x+r5,y-r1-10,r5);
r6:=37;
r7:=45;
SetBrushColor(clWhite);
Ellipse(x-r6-2,y-r1-r7+9,x+0,y-r1+12);
Ellipse(x-1,y-r1-r7+9,x+r6+4,y-r1+12);
SetBrushColor(clBlack);
Circle(295,150,10);
Circle(333,150,10);
Line(x-r5-5,y-2*r1+10,x-r5+5,y-2*r1-20);
Line(x-r5+5,y-2*r1-20,x-r5+15,y-2*r1+5);
floodfill(x-r5+5,y-2*r1-5,clGray);
Line(x+r5+5,y-2*r1+10,x+r5-5,y-2*r1-20);
Line(x+r5-5,y-2*r1-20,x+r5-15,y-2*r1+5);
floodfill(x+r5-5,y-2*r1-4,clGray);
Line(264,230,220,235);
Line(362,230,400,236);
Line(393,243,420,248);
Line(399,237,392,245);


Line(357,358,390,375);
Line(240,374,273,359);
Line(240,374,390,374);
redraw;
sleep(10);
setbrushcolor(clwhite);
fillrect(0,0,1000,1000);
end;
end.