Напишите программу, реализующую модель движения планет вокруг Солнца

uses GraphABC;
var nebo,sun,m,v,z,ma,u, x0,y0,x,y,i:  integer;
    rm,rv,rz,rma,ru: integer;
    r: real;
begin
lockdrawing;
SetWindowSize(600,600);
nebo:= LoadPicture('sky.gif');
sun:= LoadPicture('sun.gif');
m:= LoadPicture('merkurij.jpg');
v:= LoadPicture('venus.gif');
z:= LoadPicture('earth.jpg');
ma:= LoadPicture('mars.jpg');
u:= LoadPicture('jupiter.jpg');
x0:=300;
y0:=300;
rm:=60;
rv:=80;
rz:=110;
rma:=140;
ru:=200;
    for i:=1 to 720 do
    begin
    //ClearWindow;
      DrawPicture(nebo,0,0,600,400);
      DrawPicture(nebo,0,400,600,400);
      DrawPicture(sun,250,250,100,100);
      x:=trunc(x0+Rm*cos(pi*i/180));
      y:=trunc(y0-Rm*sin(pi*i/180));
      DrawPicture(m,x,y,15,15);
 
      x:=trunc(x0+Rv*cos(pi*i/180));
      y:=trunc(y0-Rv*sin(pi*i/180));
      DrawPicture(v,x,y,20,20);
 
      x:=trunc(x0+Rz*cos(pi*i/180));
      y:=trunc(y0-Rz*sin(pi*i/180));
      DrawPicture(z,x,y,25,25);
 
      x:=trunc(x0+Rma*cos(pi*i/180));
      y:=trunc(y0-Rma*sin(pi*i/180));
      DrawPicture(ma,x,y,20,20);
 
      x:=trunc(x0+Ru*cos(pi*i/180));
      y:=trunc(y0-Ru*sin(pi*i/180));
      DrawPicture(u,x,y,50,50);
      sleep(10);
      Redraw;
    end;
end.