Нарисовать и разукрасить лошадь

uses crt, graphABC;
 
procedure Inmot;
var i: byte;
begin
setpenwidth(1);
setbrushcolor(clbrown);
setpencolor(clbrown);
rectangle(100,250,400,350);
circle(150,100,47);
circle(100,160,25);
line(80,170,130,50);
line(90,170,150,150);
line(140,150,101,253);
line(180,60,250,253);
floodfill(110,130,clbrown);
floodfill(200,200,clbrown);
ellipse(130,10,150,55);
ellipse(150,10,170,55);
setpenwidth(3);
for i:=1 to 3 do
    line(150,53,110-random(30),60-(i*10));
for i:=1 to 30 do
    line(165+(i*3),50+(i*7),175+(i*3)+random(20),50+(i*7));
for i:=1 to 10 do
    line(400,250,500-random(70),150-random(10));
setpenwidth(1);
setbrushcolor(clwhite);
circle(85,155,7);
setbrushcolor(clblack);
circle(130,85,10);
setbrushcolor(clwhite);
circle(125,85,5);
end;
 
procedure St1(x: integer);
begin
setbrushcolor(clbrown);
setpencolor(clbrown);
rectangle(x-10,350,x+10,450);
setbrushcolor(clblack);
rectangle(x-10,450,x+10,470);
end;
 
procedure St2(x: integer);
begin
setbrushcolor(clbrown);
setpencolor(clbrown);
rectangle(x-60,330,x+10,350);
rectangle(x-60,350,x-40,400);
setbrushcolor(clblack);
rectangle(x-60,400,x-40,420);
end;
 
procedure St3(x: integer);
begin
setbrushcolor(clbrown);
setpencolor(clbrown);
rectangle(x-10,350,x+10,400);
rectangle(x-10,400,x+60,420);
setbrushcolor(clblack);
rectangle(x+40,400,x+60,420);
end;
 
procedure Lachara;
begin
clearwindow;
St1(110);
St2(110);
 
St3(390);
St1(390);
Inmot;
sleep(400);
redraw;
clearwindow;
St2(110);
St3(110);
 
St1(390);
St2(390);
Inmot;
sleep(400);
redraw;
clearwindow;
St3(110);
St1(110);
 
St2(390);
St3(390);
Inmot;
sleep(400);
redraw;
end;
 
begin
setwindowsize(500,500);
lockdrawing;
hidecursor;
repeat
clearwindow;
Lachara;
sleep(100);
redraw;
until keypressed;
end.