Как нарисовать человечка...

Как нарисовать человечка в программе паскаль абс

 

Program man;
uses Graph;
var gd, gm: Integer;
begin
gd:=Detect;
InitGraph(gd, gm, ' ');
SetFillStyle(1, Green);
Bar(0, 350, 639, 479);
SetFillStyle(1, LightBlue);
FloodFill(0, 0, Green);
SetColor(Red);
Circle(320, 200, 19);
SetLineStyle(0, 0, 3);
Rectangle(390, 220, 340, 300);
Line(320, 300, 300, 350);
Line(320, 300, 340, 350);
Line(300, 240, 250, 250);
Line(340, 240, 390, 250);
SetFillStyle(1, Red);
FloodFill(320, 200, Red);
FloodFill(320, 230, Red);
SetColor(Yellow);
Circle(315, 190, 2);
Circle(325, 190, 2);
Line(315, 210, 325, 210);
Readln;
CloseGraph;
end.