Помогите какую координату поменять чтоб ракета летела Pascal

[IIaJIoMka]

Program raketa;
uses graphabc;
var x:integer;
begin
lockdrawing;
x:=700;
while x>-200 do
begin
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);
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 (300,60,300,30);
sleep(40);
redraw;
x:=x-10;
end;
end.