Помогите срочно!! Как нарисовать движущуюся ракету в паскале ABC, саму ракету нарисовала, а как привести в движение не знаю((

Как то так, можешь заменить так что бы ракета вверх двигалась.Program raketa;uses graphabc;var i:integer;beginFor i:=1 to 300 do beginline (i+300,60,i+240,120);line (i+240,120,i+240,360);line (i+360,120,i+360,360);line (i+240,360,i+360,360);line (i+300,60,i+360,120);line (i+240,210,i+210,240);line (i+210,240,i+240,240);line (i+360,210,i+390,240);line (i+390,240,i+360,240);circle (i+300,150,15);circle (i+300,210,15);circle (i+300,270,15);line (i+240,360,i+180,450);line (i+180,450,i+420,450);line (i+420,450,i+360,360);line (i+330,450,i+330,370);line (i+300,450,i+300,365);line (i+270,450,i+270,370);ClearWindow;end;end.end.