с графикой,
вот есть туловище, а как продолжить не знаю
uses GraphABC;
var x,y:integer;
begin
setwindowsize(400,450);
centerwindow;
x:=windowwidth div 2;
y:=windowheight div 2;
setbrushcolor(clBlack);
ellipse(x-25,y-210,x+25,y-140);
polygon((x-50,y-135),(x+50,y-135),(x,y+20),(x-50,y-135));
polygon((x-45,y-125),(x-115,y-100),(x-95,y-85),(x-45,y-125));
line(x-95,y-85,x-25,y);
arc(x-15,y-75,77,175,262);
floodfill(x-65,y-40,clBlack);
end.