Помогите сделать метод исполнителя Чертежник(дам 30 баллов)

Program znanija;

uses Drawman;

begin

Field(15,15);

ToPoint(2,3);

PenDown;

OnVector(10,10);

OnVector(2,-2);

OnVector(-10,-10);

OnVector(-2,2);

PenUp;

ToPoint(2,7);

PenDown;

OnVector(6,6);

OnVector(6,-6);

OnVector(-6,-6);

OnVector(-6,6);

PenUp;

ToPoint(4,13);

PenDown;

OnVector(10,-10);

OnVector(-2,-2);

OnVector(-10,10);

OnVector(2,2);

end.