Как на рисовать человечка в паскале напишете кординаты

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

напишете пожалуйста кординаты

  • 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.