Графика в Турбо Паскаль. Нарисовать телефон

uses graph;
var xc,yc,i,a:integer;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2+100;
setbkcolor(15);
setcolor(8);
setfillstyle(1,8);
{корпус}
line(xc-170,yc+80,xc+170,yc+80);
line(xc-120,yc-160,xc+120,yc-160);
line(xc-170,yc+80,xc-120,yc-160);
line(xc+170,yc+80,xc+120,yc-160);
floodfill(xc,yc,8);
rectangle(xc-40,yc-210,xc+40,yc-160);
floodfill(xc,yc-180,8);
{трубка}
rectangle(xc-170,yc-215,xc+170,yc-210);
floodfill(xc,yc-212,8);
setlinestyle(0,0,3);
line(xc-170,yc-210,xc-170,yc-170);
line(xc+170,yc-210,xc+170,yc-170);
{левый}
line(xc-210,yc-170,xc-130,yc-170);
line(xc-200,yc-130,xc-140,yc-130);
line(xc-210,yc-170,xc-200,yc-130);
line(xc-130,yc-170,xc-140,yc-130);
floodfill(xc-160,yc-150,8);
{правый }
line(xc+210,yc-170,xc+130,yc-170);
line(xc+200,yc-130,xc+140,yc-130);
line(xc+210,yc-170,xc+200,yc-130);
line(xc+130,yc-170,xc+140,yc-130);
floodfill(xc+160,yc-150,8);
{диск}
setcolor(7);
setfillstyle(1,7);
circle(xc,yc-50,80);
floodfill(xc,yc-50,7);
setcolor(8);
setfillstyle(1,8);
circle(xc,yc-50,15);
floodfill(xc,yc-50,8);
a:=310;
for i:=0 to 9 do
 begin
  circle(xc+round(60*cos(a*pi/180)),yc-50-round(60*sin(a*pi/180)),8);
  floodfill(xc+round(60*cos(a*pi/180)),yc-50-round(60*sin(a*pi/180)),8);
  a:=a-30;
 end;
readln
end.