помогите написать из паскаля в си шарп

Program Massiv;
Uses Crt; 
Const  Range=50;
Var
  mass:array[1..Range] of integer;
  j,i:byte;
  sumPoz,cntNeg:word;  
BEGIN
  ClrScr;
  Randomize;
  sumPoz:=0;
  cntNeg:=0;
  i:=1;
  for j:=1 to Range do
  begin
    mass[j]:=random(101)-50;
    if odd(j) then
      if mass[j]>0 then 
        Inc(sumPoz,mass[j])
      else if mass[j]<0 then 
        Inc(cntNeg);
    write('  ',mass[j]:3);
    Inc(i);
    if i>10 then
    begin
      writeln;
      i:=1
    end
  end;
  writeln;
  writeln('Summa pozitive = ',sumPoz);
  writeln('Count negative = ',cntNeg);
  readkey
END.