Перевод из Pascal в С#

[sasha-gorayev@mail]

Доброго времени!
Помогите, пожалуйста, с переводом кода:
function Bits(n:word;position,len:byte) word;
begin
Bits:=(n shr position) and ((1 SHL len)-1;
end.

Procedure Straight Radix;
var
i:word;
count:array[0..Mp-1] of word;
pass:byte;
begin
for pass:=0 to (w dir m) -1
do begin
fillchar (count, sizeof(count),0);
for i:=1 to N do
inc (count [Bits(a[i],pass*m,m)]);
for i:=1 to Mp-1 do
inc(count[i], count[i-1]);
for i:=N do w to 1 do
begin
b[count[Bits(a[i],pass*m,m)1]:=a[i];
dec(count[Bits(a[i],pass*m,m)]);
end;
a:=b;
end.