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

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.