Pascal abc мне нужна программа для ракеты, которая летит вверх , , если кто-то знает)

Могу ошибатся
uses GraphABC; var x:integer;   begin lockdrawing;    For x:=3 to 500 do begin clearwindow;    circle (249,500,155);   rectangle (250,350,220,200); circle (235,290,10); circle (235,250,10); line (249,202,230,160); line (219,200,230,160); circle (228,355,5); circle (235,355,5); circle (245,355,5); circle (241,365,5); circle (234,365,5); circle (238,375,5); redraw;     end;   end.