Программу нужно перевести из паскаля в делфи

[Ильшат Садыков]

program Project2;

{$APPTYPE CONSOLE}

uses
Crt,Graph;

Var
gd,gm,x,y,x0,y0,i:integer;
v0,r0,w,om,phi,t,d,dt,e,xm,ym:real;
const
g=9.81;
begin
DirectVideo:=False;
ClrScr;
textcolor(green);
writeln('matematicheskii maiatnick');
write('nachalnaia skorost:v0[m/c]=');
readln(v0);
write('dlina podvesa:r0[m]=');
readln(r0);
write('shag integrirovania=');
readln(d);
om:=sqrt(g/r0);
ym:=150/v0*r0*om;
xm:=150/pi;
dt:=d/om;
gd:=Detect;
lnitGraph(gd,gm,'c:\bp\bgi');
if GraphResult<>grOk then Halt(1);
x0:=GetMax x div 2;
y0:=GetMax y div 2;
SetColor(red);
OutTextxy(2*x0,y0+20,'phi');
OutTextxy(x0-20,10,'w');
t:=0;
phi:=0;
w:=v0/(r0*om);
repeat
w:=w-sin(phi)*d;
phi:=phi+w*d;
t:=t+dt;
x:=x0+round(xm*phi);
y:=y0-round(ym*w);
PutPixel(x,y,white);
gotoxy(64.4);
e:=g*r0(0.5*sqr(w)+1-cos(phi));
write('e=',e:5);
until KeyPressed;
Closegraph;
end.

[DoDge_VipeR]

http://programmersforum.ru/showthread.php?t=49368