Pascal ABC. Помогите составить программку хоть какой,трудной геометрической фигуры .

uses Drawman;

begin

field(10,10);

    PenUp;

    ToPoint(4,4);

    PenDown;

    ToPoint(6,4);

    ToPoint(6,6);

    ToPoint(4,6);

    ToPoint(4,4);

    ToPoint(5,1);

    ToPoint(6,4);

    ToPoint(9,5);

    ToPoint(6,6);

    ToPoint(5,9);

    ToPoint(4,6);

    ToPoint(1,5);

    ToPoint(4,4);

end.