Перевести из Pascal в C#

{$N+}
{ PR - 3.5 }
uses dos, crt, graph;
const N=250; dt=0.003; m=1;
var Fx,Fy,x,y,vx,vy,xx,yy: array[1..N] of single;
t,Gd,Gm,i,j: integer; k,ax,ay,F,1: single; hh: string;
Procedure Sila; label Metka;
begin
For i:=1 to N do begin Fx[i]:=0; Fy[i]:=0; end;
For i:=1 to N do For j:=1 to N do begin
If j=i then goto Metka;
1:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
If (1>9)and(1<30) then F:=-40000/1/1 else F:=0;
If 1<8 then F:=4000000/1/1/1;
Fx[i]:=Fx[i]+F*(x[i]-x[j])/(1+0.001);
Fy[i]:=Fy[i]+F*(y[i]-y [j])/(1+0.001)+m*10;
Metka: end; end;
Procedure Nach_uslov;
begin Randomize;
For j:=0 to 24 do For i:=1 to 10 do begin
x[i+10*j] :=8*i+170; y[i+10*j] :=8*j+150;
vy[i]:=0; vx[i]:=0; end; end;
BEGIN
Gd:=Detect; InitGraph(Gd, Gm, 'c:\bp\bgi'); Nach_uslov;
Repeat Sila;
For i:=1 to N do begin k:=0.9;
xx [i] : =x [i] ;
ax:=Fx[i]/m;
yy [i] : =y [i] ;
ay:=Fy[i]/m;
vx [i]:=k*vx [i]+ax*dt; vy [i]:=k*vy [i]+ay*dt;
x[i]: =x [i]+vx [i] *dt; y [i]:=y [i] +vy [i]*dt;
If (x[i]<220) and(y[i]>352) then
begin vx [i] :=-k*vx[i]; x[i]:=221; end;
If (x[i]<220)and(y[i]>350) then
begin vy [i] :=-k*vy[i]; y[i]:=349; end;
If (y[i]>400) then
begin vy[i]:=-k*vy[i]; y[i]:=399; end;
end;
cleardevice; setcolor(15);
line(0,402,640,402); rectangle(0,402,318,353);
For i:=1 to N do begin
Circle(100+round(x[i]),round(y[i]),3);
Circle(100+round(x[i]),round(y[i]),1); end;
t:=t+1; str(t,hh); OuttextXY(150,150,hh);
until KeyPressed;
Repeat until keypressed; CloseGraph;
END.