задача по информатике надо сделать анимацию летящего самолёта с которого падают ядра в graphABC

uses graphABC;var i:integer;procedure progectile(x:integer);var i:integer;begin;for i:=30 to windowheight+30 dobegin;setpencolor(clwhite);circle(x,i-1,4);setpencolor(clred);circle(x,i,2);sleep(10);end;end;begin;maximizewindow;for i:=2 to windowwidth dobegin;setpencolor(clwhite);rectangle(i-1,18,i+5,24);setpencolor(clblue);line(i,20,i+10,20);line(i+5,20,i+3,18);line(i+5,20,i+3,22);sleep(100);if i mod 30=0 then progectile(i);end;end.