Сделайте чертежник по рисунку типо ну там поднять перо сместить в точку опустить
Program name; uses Drawman; begin field (9,9); topoint (2,2); pendown; topoint (3,3); topoint (7,3); topoint (8,2); topoint (8,7); topoint (7,6); topoint (3,6); topoint (2,7); topoint (2,2); end. Вроде так, я уже давно в Чертёжнике не работал)