Pascal -> Pascal ABC.Net

var f, fRez: text;
    b, lines, n, i, j, stolb: integer;
    a: array [1..10000, 1..200] of integer;
    s: string;
    columns: real;
begin
 assign(f,'ArrOfArrNum.txt'); reset(f);
 assign(fRez,'RezArr.txt'); reWrite(fRez);
 n := 0;
 try while not eoF(f) do
  begin
   read(f, b);
   inc(n); {количество элементов}
  end; except; end;
 close(f);  reset(f);  
 lines := 0;
 while not eof(f) do
  begin
   readln(f, s);
   inc(lines); {количество строк}
  end;
 close(f); reset(f);
 columns := n/lines; stolb := trunc(columns); {количество столбцов}
 for i := 1 to lines do
  begin
   for j := 1 to stolb do
    begin
     read(f, a[i, j]); {Здесь предусмотреть возможность анализа и обработки матрицы}
     write(fRez, a[i, j]: 3);
    end;  
    writeln(fRez); 
  end;
 close(f); close(fRez); 
end.

begin
  var a := ReadAllLines('ArrOfArrNum.txt').Select((s : string) -> 
    s.Split('  '.ToArray(), System.StringSplitOptions.RemoveEmptyEntries).Select(v -> StrToInt(v))).ToArray();
  a.Println(NewLine)
end.

begin
  var a := ReadAllLines('ArrOfArrNum.txt').Select((s : string) -> 
    s.Split('  '.ToArray(), System.StringSplitOptions.RemoveEmptyEntries).Select(v -> StrToInt(v)).ToArray()).ToArray();
  a.Println(NewLine);
  a[0][0] := 777;
  a.Println(NewLine);
end.