Напишите в PascalABC машину (только машину) с помощью GraphABC (использовать только простые команды)!!!!

вот программа:program Speed;uses crt,graphABC;begincircle (180,330,30);circle (180,330,40);Line (180,330,165,315);Line (180,330,195,315);Line (180,330,195,330);Line (180,330,165,330);Line (180,330,165,345);Line (180,330,195,345);Line (180,345,180,315);circle (450,330,30);circle (450,330,40);Line (435,330,465,330);Line (450,315,450,345);Line (465,315,435,345);Line (435,315,465,345);Line (143,315,120,315);Line (120,315,110,330);Line (110,330,60,330);Line (60,330,55,320);Line (55,320,55,280);Line (55,280,64,280);Line (63,280,90,240);Line (90,240,180,225);Line (180,225,210,160);Line (210,160,510,160);Line (510,160,480,210);Line (489,195,540,300);Line (540,300,491,330);Line (491,330,540,330);Line (540,330,510,355);Line (510,355,481,355);Line (540,330,540,300);Line (418,355,212,355);Line (147,355,60,355);Line (60,355,60,330);Line (105,240,86,280);Line (86,280,60,280);Line (220,330,410,330);Line (480,210,450,210);Line (450,210,440,160);Line (165,270,300,270);Line (165,270,165,292);Line (165,270,213,165);Line (213,165,420,165);Line (420,165,420,240);Line (420,240,360,320);Line (360,320,310,320);Line (310,320,305,315);Line (305,315,330,240);Line (330,240,420,240);Line (330,270,360,270);Line (330,240,330,165);Line (180,260,220,170);Line (220,170,320,170);Line (320,170,300,270);Line (180,260,300,260);Line (300,270,283,320);Line (283,320,220,320);Line (255,300,285,300);Line (55,287,165,287);Line (385,287,533,287);Line (102,247,175,247);Line (416,247,514,247);end.также посмотри результат работы: