Составьте программу движения ракеты снизу вверх. Pascal abc

Работа не моя:

Program raketa; uses graph; var gd, gm:integer; begin detectgraph (gd, gm) ; initgraph (gd, gm,'C:/tp7 ') ; line (300,60,240,120) ; line (240,120,240,360) ; line (360,120,360,360) ; line (240,360,360,360) ; line (300,60,360,120) ; line (240,210,210,240) ; line (210,240,240,240) ; line (360,210,390,240) ; line (390,240,360,240) ; circle (300,150,15) ; circle (300,210,15) ; circle (300,270,15) ; Bar (270,300,240,360) ; line (240,360,180,450) ; line (180,450,420,450) ; line (420,450,360,360) ; line (330,450,330,370) ; line (300,450,300,365) ; line (270,450,270,370) ; line (240,330,180,330) ; line (180,330,90,450) ; line (172,330,80,445) ; line (300,60,300,30) ; readln end.