Изобразить на экране рисунок (паровоз)

uses graph,wincrt;
var p:array[1..15] of pointtype;
    x,y,i:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2-300;
y:=getmaxY div 2+200;
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
setcolor(0);
setfillstyle(1,0);
for i:=1 to 5 do
fillellipse(x+(2*i-1)*50,y+50,50,50);
p[1].x:=x;p[1].y:=y;
p[2].x:=x;p[2].y:=y-200;
p[3].x:=x+100;p[3].y:=p[2].y;
p[4].x:=p[3].x-20;p[4].y:=p[3].y-150;
p[5].x:=p[4].x+100;p[5].y:=p[4].y;
p[6].x:=p[5].x-20;p[6].y:=p[3].y;
p[7].x:=p[6].x+200;p[7].y:=p[3].y;
p[8].x:=p[7].x;p[8].y:=p[4].y-30;
p[9].x:=p[8].x+200;p[9].y:=p[8].y;
p[10].x:=p[9].x;p[10].y:=p[1].y-80;
p[11].x:=p[10].x+40;p[11].y:=p[10].y;
p[12].x:=p[11].x;p[12].y:=p[11].y+40;
p[13].x:=p[10].x;p[13].y:=p[12].y;
p[14].x:=p[13].x;p[14].y:=p[1].y;
p[15]:=p[1];
fillpoly(15,p);
setfillstyle(1,15);
bar(p[7].x+40,p[8].y+40,p[9].x-40,p[2].y);
setlinestyle(0,0,3);
ellipse(p[5].x+20,p[8].y-10,0,360,50,30);
ellipse(p[5].x+80,p[8].y-30,0,360,35,30);
ellipse(p[5].x+120,p[8].y-50,0,360,20,25);
ellipse(p[5].x+150,p[8].y-50,0,360,20,20);
readkey
end.