Реализовать код из Pascal в С++

uses crt,GraphABC;
 type  info=record
      m,x,dy,y,dx,old,zoom:real;
        x1,y1:integer;
   title:string;
   
   end;
  const
 G=6.67e-11;
 var
   splanet: array [1..11] of string;
   mas: array [1..11] of info;
   zoom,t,dt,cosA,sinA,R,ax,ay,tvr: real;
  tobr,tobrsum,robr,maxrobr,minrobr: array [1..11] of real;
  rb:array [1..11] of boolean;
     i,j, chis,xx,yy:integer;
 
   begin
     SetWindowSize(800,600);
       floodfill(10,10,clblack);
splanet[1]:='Солнце=';
splanet[2]:='Меркурий=';
splanet[3]:='Венера=';
splanet[4]:='Земля=';
splanet[5]:='Марс=';
splanet[6]:='Юпитер=';
splanet[7]:='Сатурн=';
splanet[8]:='Уран=';
splanet[9]:='Нептун=';
splanet[10]:='Плутон=';
splanet[11]:='Луна=';
begin
 
  dt:=15;
with mas[1] do
 begin
  title:='Сoлнце';
   m:=1.989e+30;
   x:=0;
   old:=0.1;
   y:=0;
   dx:=0;
   dy:=0;
   setbrushcolor(clyellow);
   circle(390,300,10);
   end;
 with mas[2] do
 begin
    title:='Меркурий';
    m:=3.303e+23;
    x:=57.85E+9;
    y:=0;
    old:=0.1;
    dx:=0;
    dy:=4.787E+4;
   setbrushcolor(clPurple);
   circle(xx,yy,10);
   end;
   with mas[3] do
  begin
   title:='Венера';
   m:=4.869e+24;
   x:=108.11E+9;
   y:=0;
   dx:=0;
   old:=0.1;
   dy:=3.502E+4;
   setbrushcolor(clLime);
   circle(xx,yy,10);
     end;
      with mas[4] do
  begin
   title:='Земля';
   m:=5.974e+24;
   x:=149.46E+9;
   y:=0;
   dx:=0;
   old:=0.1;
   dy:=2.978E+4;
   setbrushcolor(clBlue);
   circle(xx,yy,10);
     end;
     with mas[5] do
  begin
   title:='Марс';
   m:=6.421e+23;
   x:=227.7E+9;
   y:=0;
   old:=0.1;
   dx:=0;
   dy:=2.31413E+4;
   setbrushcolor(clRed);
   circle(xx,yy,10);
    end;
  end;
{Юпитер}
 with mas[6] do
  begin
   title:='Юпитер';
   m:=1.900e+27;
   x:=777.6E+9;
   y:=0;
   dx:=0;
   old:=0.1;
   dy:=1.307E+4;
   setbrushcolor(clGray);
   circle(xx,yy,10);
    end;
 
{Сатурн}
 with mas[7] do
  begin
   title:='Сатурн';
   m:=5.688e+26;
   x:=1426E+9;
   y:=0;
   dx:=0;
   old:=0.1;
   dy:=9.69E+3;
   setbrushcolor(clAqua);
   circle(xx,yy,5);
    end;
 
 with mas[8] do
  begin
   title:='Уран';
   m:=8.686e+25;
   x:=2868.3E+9;
   y:=0;
   old:=0.1;
   dx:=0;
   dy:=6.81E+3;
   setbrushcolor(clGreen);
   circle(xx,yy,5);
    end;
{Нептун}
 with mas[9] do
  begin
   title:='Нептун';
   m:=1.024e+26;
   x:=4494.3E+9;
   y:=0;
   old:=0.1;
   dx:=0;
   dy:=5.43E+3;
   setbrushcolor(clTeal);
   circle(xx,yy,5);
    end;
 
{Плутон}
 with mas[10] do
  begin
   title:='Плутон';
   m:=1.29e+22;
   x:=5900E+9;
   y:=0;
   dx:=0;
   old:=0.1;
   dy:=4.72E+3;
   setbrushcolor(clSilver);
   circle(xx,yy,10);
 
  end;
{Луна}
 with mas[11] do
  begin
   title:='Луна';
   m:=7.349e+22;
   x:=mas[4].x+384401E+3;
   y:=0;
   old:=0.1;
   dx:=0;
   dy:=(2.978e+4)-(1.023e+3);
   setbrushcolor(clwhite);
   circle(xx,yy,10);
    end;
    while true do
    begin
    for chis:=0 to 10000 do
 begin
  {рисуем}
  t:=t+dt;
  for i:=1 to 11 do
  begin
   ax:=0;
   ay:=0;
   for j:=1 to 11 do
    if i<>j then
     begin
      R:=sqrt(sqr(mas[i].x-mas[j].x)+sqr(mas[i].y-mas[j].y));
      cosA:=-(mas[i].x-mas[j].x)/(R);
      sinA:=-(mas[i].y-mas[j].y)/(R);
      ax:=ax+G*mas[j].m*cosA/sqr(R);
      ay:=ay+G*mas[j].m*sinA/sqr(R);
     end;
   mas[i].dx:=mas[i].dx+dt*ax;
   mas[i].dy:=mas[i].dy+dt*ay;
   mas[i].x:=mas[i].x+mas[i].dx*dt;
   mas[i].y:=mas[i].y+mas[i].dy*dt;
  {Мин и Макс радиусы обращения для каждой планеты}
  robr[i]:=sqrt(sqr(mas[i].x)+sqr(mas[i].y));//находим текущий радиус вектор
  end;
  repeat
    for i:=1 to 11 do
 
  xx:=round(mas[i].x-mas[4].x);
  yy:=round(mas[i].y-mas[4].y);
  until keypressed;
     end;
       end;
   end.