Программа рисующая паровоз

uses graph,crt;
procedure par(x,y,c1,c2,c3:integer);
var p:array[1..15] of pointtype;
    i:byte;
begin
p[1].x:=x;p[1].y:=y;{базовая точка=правый верхний угол}
p[2].x:=x-26;p[2].y:=y;
p[3].x:=x-26;p[3].y:=y+14;
p[4].x:=x-52;p[4].y:=y+14;
p[5].x:=x-52;p[5].y:=y-8;
p[6].x:=x-60;p[6].y:=y-8;
p[7].x:=x-60;p[7].y:=y+14;
p[8].x:=x-68;p[8].y:=y+14;
p[9].x:=x-68;p[9].y:=y+28;
p[10].x:=x-76;p[10].y:=y+28;
p[11].x:=x-76;p[11].y:=y+36;
p[12].x:=x-6;p[12].y:=y+36;
p[13].x:=x-6;p[13].y:=y+6;
p[14].x:=x;p[14].y:=y+6;
p[15]:=p[1];
setfillstyle(1,c2);
fillpoly(15,p);
setcolor(c1);
drawpoly(15,p);
setfillstyle(1,15);
bar(x-20,y+6,x-12,y+12);
setcolor(c2);
rectangle(x-20,y+6,x-12,y+12);
setfillstyle(1,c3);
fillellipse(x-52,y+36,6,6);
fillellipse(x-35,y+36,6,6);
fillellipse(x-18,y+36,6,6);
end;
var x,y:integer;
    c:char;
begin
initgraph(x,y,'');
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
setcolor(12);
outtextXY(getmaxX div 2-50,20,'Exit -Esc');
x:=getmaxX-2;
y:=getmaxY div 2;
repeat
par(x,y,0,6,14);
delay(50);
par(x,y,15,15,15);
x:=x-2;
if x<0 then x:=getmaxX-2;
if keypressed then c:=readkey
until c=#27
end.