Нарисовать светофор

uses graphABC;
var w,h,x,y,r:integer;
begin
w:=650;
h:=450;
setwindowsize(w,h);
centerwindow;
//светофор
x:=120;
y:=h div 2;
r:=50;
setbrushcolor(clSilver);
rectangle(x-80,y-2*r-20,x+80,y+4*r+20);
setpenwidth(5);
line(x,y-2*r-20,x,y-4*r);
line(x,y-4*r,x+2*r,y-4*r);
setbrushcolor(clRed);
circle(x,y-r-10,r);
setbrushcolor(clYellow);
circle(x,y+r,r);
setbrushcolor(clGreen);
circle(x,y+3*r+10,r);
//вымпел
x:=320;
setpenwidth(1);
setbrushcolor(clRed);
rectangle(x-80,y-120,x+80,y+160);
setbrushcolor(clYellow);
circle(x,y-70,30);
setbrushcolor(clBlue);
rectangle(x-30,y+20,x+30,y+80);
setbrushcolor(clWhite);
setpencolor(clWhite);
circle(x-40,y+180,45);
circle(x+40,y+180,45);
setpencolor(clBlack);
arc(x-40,y+180,45,30,150);
arc(x+40,y+180,45,30,150);
line(x-80,y-120,x,y-200);
line(x+80,y-120,x,y-200);
//деталь
x:=510;
setpenwidth(2);
moveto(x-90,y-45);
lineto(x-90,y-75);
lineto(x+90,y-75);
lineto(x+90,y-45);
lineto(x+60,y-45);
lineto(x+60,y+45);
lineto(x+90,y+45);
lineto(x+90,y+75);
lineto(x-90,y+75);
lineto(x-90,y+45);
arc(x-120,y,55,305,55);
ellipse(x-20,y-45,x+20,y+45);
end.