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

Uses graphABC;

var i:integer;

procedure progectile (x:integer) ;

var i:integer;

begin;

for i:=30 to windowheight+30 do

begin;

setpencolor (clwhite) ;

circle (x, i-1,4) ;

setpencolor (clred) ;

circle (x, i, 2) ;

sleep (10) ;

end;

end;

begin;

maximizewindow;

for i:=2 to windowwidth do

begin;

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.