перевод из Pascal в С++

[edise]

Здравствуйте, помогите пожалуйста!
Есть программа на Pascal'e, моделирующая падение тела, не могли бы вы помочь с переводом ее в С++ Builder, так как ее надо усовершенствовать (сделать выбор формы тела, и изменение плотности среды).

Вот код программы:


program telo;
uses crt,graph;
var grDriver,grMode,y:integer;
g,m,v,v0,a,a0,h,
dt,S,S0,t,k:real;
begin
g:=10;h:=2000;k:=10;
m:=100;dt:=sqrt(2*h/g)/100;
grDriver:=Detect;
InitGraph(grDriver,grMode,' ');
circle(300,100,5);
setfillstyle(5,2);
bar(200,320,400,330);
repeat until keypressed;
t:=0;S0:=0;v0:=0;a0:=g;
repeat
t:=t+dt;
S:=S0+v0*dt+a0*sqr(dt)/2;
v:=v0+a0*dt;
a:=(m*g-k*v)/m;
y:=round(100+S*(320-100)/h);
setcolor(15);circle(300,y,5 );
delay(20);
setcolor(0);circle(300,y,5);
S0:=S;a0:=a;v0:=v;
until (S&gth) or (y&gt319);
setcolor(15);
circle(300,y,5);
readln;
CloseGraph;
end.


заранее спасибо