Найти среднее арифметическое отрицательных элементов массива. Перевести на C#

Const 
 cMaxIndex = 12; 
 
Type 
 TRange = 1..cMaxIndex; 
 TArray = array [TRange, TRange] of Real; 
 TFile = file of Real; 
 
Var 
 a : TArray; 
 m : Real; 
 
Procedure SaveArray (a : TArray; fname : openstring); 
var 
 i, j : TRange; 
 f : TFile; 
 
begin 
 Assign (f, fname); Rewrite (f); 
 for i := 1 to cMaxIndex do 
 for j := 1 to cMaxIndex do 
 write (f, a [i, j]); 
 Close (f); 
end; 
 
Procedure LoadArray (var a : TArray; fname : openstring); 
var 
 i, j : TRange; 
 f : TFile; 
 
begin 
 Assign (f, fname); Reset (f); 
 for i := 1 to cMaxIndex do 
 for j := 1 to cMaxIndex do 
 read (f, a [i, j]); 
 Close (f); 
end; 
 
Procedure InputArray (var a : TArray); 
var 
 i, j : TRange; 
 s : string; 
 
begin 
 writeln ('Введите элементы массива:'); 
 for i := 1 to cMaxIndex do 
 for j := 1 to cMaxIndex do 
 begin 
 write ('Элемент a [', i, ', ', j, '] —> '); 
 readln (a [i, j]); 
 end; 
 
 write ('Введите имя файла для сохранения или "-" для продолжения: '); 
 readln (s); 
 if s [1] <> '-' then SaveArray (a, s); 
end; 
 
Procedure GetArray (var a : TArray); 
var 
 s : string; 
 
begin 
 write ('Введите имя файла для считывания или "-" для ручного ввода массива: '); 
 readln (s); 
 if s [1] = '-' then InputArray (a) else LoadArray (a, s); 
end; 
 
Procedure PrintArray (a : TArray); 
var 
 i, j : TRange; 
 
begin 
 for i := 1 to cMaxIndex do 
 begin 
 for j := 1 to cMaxIndex do 
 write (' ', a [i, j]:12:4); 
 writeln; 
 end; 
end; 
 
Function FindAvg (a : TArray) : Real; 
var 
 i, j : TRange; 
 c : Byte; 
 s : Real; 
 
begin 
 s := 0; 
 c := 0; 
 for i := 1 to cMaxIndex do 
 for j := 1 to cMaxIndex do 
 if a [i, j] < 0 then begin 
 s := s + a [i, j]; 
 Inc (c); 
 end; 
 
 if c = 0 then FindAvg := 0 
 else FindAvg := s / c; 
end; 
 
Begin 
 GetArray (a); 
 PrintArray (a); 
 m := FindAvg (a); 
 writeln ('Среднее арифметическое отрицательных чисел равно: ', m:12:4); 
End.