Графика. Чебурашку нарисовать

program Cheburator;
uses crt, graph;
var
Gd,Gm,i,n:integer;
begin
gd:=detect;
initgraph(gd,gm,' ');
setbkcolor(black);
setcolor(brown);
circle(200,200,50);{голова}
circle(200,200,45);{круг лица}
circle(185,195,11);{глаз левый}
circle(215,195,11);{глаз правый}
circle(187,197,4);{зрачок правый}
circle(213,193,4);{зрачок левый}
ellipse(200,220,180,360,30,10);{улыбке}
ellipse(115,200,0,360,35,70);{левый ухо}
ellipse(285,200,0,360,35,70);{правый ухо}
ellipse(115,200,0,360,20,40);{левый овал в ухе}
ellipse(285,200,0,360,20,40);{правый овал в ухе}
ellipse(200,320,0,360,40,70);{тело}
ellipse(262,316,0,360,23,10);{правый рука}
ellipse(138,316,0,360,23,10);{левый рука}
ellipse(162,389,0,360,23,10);{левый нога}
ellipse(236,389,0,360,23,10);{правый нога}
setcolor(12);
line(275,336,299,300);{ручка cочка}
ellipse(309,300,0,360,10,5);{дырка сачка}
line(299,300,307,320);{линия сочка}
line(307,320,319,303);{еще линия сочка}
line(0,399,1000,399);{дорога}
setcolor(black);
delay(50);
ellipse(115,200,0,360,35,70);{левый ухо}
ellipse(285,200,0,360,35,70);{правый ухо}
ellipse(115,200,0,360,20,40);{левый овал в ухе}
ellipse(285,200,0,360,20,40);{правый овал в ухе}
setcolor(brown);
ellipse(105,200,0,360,45,70);{большой левый ухо}
ellipse(295,200,0,360,45,70);{большой правый ухо}
ellipse(115,200,0,360,30,40);{овал большой в левом ухе}
ellipse(285,200,0,360,30,40);{овал большой в правом ухе}
delay(50);
setcolor(black);
ellipse(105,200,0,360,45,70);{большой левый ухо}
ellipse(295,200,0,360,45,70);{большой правый ухо}
ellipse(115,200,0,360,30,40);{овал большой в левом ухе}
ellipse(285,200,0,360,30,40);{овал большой в правом ухе}
setcolor(brown);
ellipse(115,200,0,360,35,70);{левый ухо}
ellipse(285,200,0,360,35,70);{правый ухо}
ellipse(115,200,0,360,20,40);{левый овал в ухе}
ellipse(285,200,0,360,20,40);{правый овал в ухе}
readln
end.