Перевод из паскаля в C#

uses crt;
const m=3; {ранг матрицы}
Var
    a:array[1..m,1..m] of real; {матрица А}
    b:array[1..m] of real; {столбец b}
    x:array[1..m] of real; {ответы}
    i,j,k:integer;
    kof,Sum:real;
Begin
    clrscr;{очистка экрана}
 
    {Заполнение матрицы и столбца}
    for i:=1 to m do begin
        for j:=1 to m do begin
            write('x',j,'=');
            readln(a[i,j]); 
        end;
        write('b',i,'=');
        readln(b[i]);
    end;
 
    clrscr;{очистка экрана}
    {вывод матрицы и строки}
    for i:=1 to m do begin
        for j:=1 to m do
            write(a[i,j]:6:2);
        write('|',b[i]:6:2);
        writeln;
        writeln;
    end;
 
    {прямой ход}
    for k:=1 to m-1 do begin
        for i:=k+1 to m do begin
            kof:=-1*a[i,k]/a[k,k];
            b[i]:=b[i]+kof*b[k];
            for j:=k to m do
                a[i,j]:=a[i,j]+a[k,j]*kof;
        end;
    end;
 
    writeln;
    writeln;
 
    {вывод преобразованой матрицы}
    for i:=1 to m do begin
        for j:=1 to m do
            write(a[i,j]:6:2);
        write('|',b[i]:6:2);
        writeln;
    writeln;
    end;
 
    {обратный ход}
    X[m]:=b[m]/a[m,m];
    for k:=m-1 downto 1 do begin
        sum:=0;
        for j:=k+1 to m do begin
            sum:=sum+a[k,j]*x[j];
            x[k]:=(b[k]-sum)/a[k,k];
        end;
    end;
    writeln;
    writeln;
 
    {вывод ответов}
    for i:=m downto 1 do 
        writeln('x',m-i,'=',x[i]:6:2);
    readln;
end.

PROGRAM JSPICOK;
USES CRT,SPICOK;
VAR
M1,N:INTEGER;
{                  SPICKI                   }
{-------------------------------------------}
 BEGIN
    REPEAT
     CLRSCR;
    WRITELN('   MENU');
    WRITELN('1 Cozdat(N)');
    WRITELN('2 DobNach(N)');
    WRITELN('3 DobKON(N)');
    WRITELN('4 BIBOD(N:INTEGER;list:A)');
    WRITELN('5 DELETE(PList)');
    WRITELN('6 EXIT');
    WRITELN;
    READLN(M1);
     CASE M1 OF
1:  Cozdat(N);
2:  DobNach(N);
3:  DobKON(N);
4:  BIBOD(N,Mlist);
5:  DELETE(PList);
6:  Exit;
     END;
 UNTIL M1>=8;
  READKEY;
 END.
и  подпрограмма :
 
UNIT SPICOK;
INTERFACE
USES CRT;
TYPE
  A=RECORD
    X:Integer;
    Y:REAL;
    Z:BOOLEAN;
  END;
  PtrList=^Tlist;
  Tlist=record
    inf:A;
    next:PtrList;
  END;
   Var
      P1,P2,PList:PtrList;
      Mlist:A;
      I,N:INTEGER;
   Procedure TABEL(N:INTEGER);
   Procedure Cozdat(VAR N:INTEGER);
   Procedure DobNach(VAR N:INTEGER);
   Procedure DobKON(VAR N:INTEGER);
   Procedure BIBOD(VAR N:INTEGER;Mlist:A);
   Procedure Delete(Var PList:PtrList);
{                       SPICKI               }
IMPLEMENTATION
{-----------------------------------------}
   Procedure TABEL(N:INTEGER);
BEGIN
   CLRSCR;
   WRITELN(' ЪДДДДДДДДДДДДВДДДДДДДДДДДВДДДДДДДДДДДДДї');
   WRITELN(' і INTEGER    і   REAL    і   BOOLEAN   і');
   WRITELN(' і    X       і   Y       і  Z(T ILI F) і');
   WRITELN(' ГДДДДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
   FOR I:=1 TO N DO
     BEGIN
   WRITELN(' і            і           і             і');
   IF I=N THEN
   WRITELN(' АДДДДДДДДДДДДБДДДДДДДДДДДБДДДДДДДДДДДДДЩ')
   ELSE
   WRITELN(' ГДДДДДДДДДДДДЕДДДДДДДДДДДЕДДДДДДДДДДДДДґ');
    END;
END;
{-------------------------------------------------------}
 Procedure Cozdat(VAR N:INTEGER);
 LABEL MM;
  Var J:CHAR;
 BEGIN
   N:=1;
  TABEL(N);
  GOTOXY(5,5);
   READ(Mlist.X);
  GOTOXY(18,5);
   READ(Mlist.Y);
MM:  GOTOXY(31,5);
   READ(J);
   CASE J OF
   'T':Mlist.Z:=TRUE;
   'F': Mlist.Z:=FALSE;
    ELSE GOTO MM;
   END;
   NEW(p1);
   P1^.inf:=Mlist;
   P1^.next:=NIL;
   P2:=P1;
{   Plist:=P1;}
 END;
{-------------------------------------------}
Procedure DobKON(VAR N:INTEGER);
LABEL MM;
VAR J:CHAR;
  BEGIN
   TABEL(1);
   GOTOXY(5,5);
   READLN(Mlist.X);
   GOTOXY(18,5);
   READLN(Mlist.Y);
MM:  GOTOXY(31,5);
   READ(J);
   CASE J OF
   'T':Mlist.Z:=TRUE;
   'F': Mlist.Z:=FALSE;
    ELSE GOTO MM;
   END;
   NEW(Plist);
   Plist^.inf:=Mlist;
   Plist^.next:=NIL;
   P2^.next:=PLIST;
   p2:=PLIST;
   N:=N+1;
 END;
{------------------------------------}
   Procedure BIBOD(VAR N:INTEGER;Mlist:A);
{ BIBOD ZAPICI }
 Var I:INTEGER;
  BEGIN
   CLRSCR;
  TABEL(N);
   PLIST:=P1;
    I:=1;
   WHILE PLIST<>NIL DO
 BEGIN
   Mlist:=PLIST^.inf;
  GOTOXY(5,5+2*(I-1));
    WRITELN(Mlist.X:7);
  GOTOXY(18,5+2*(I-1));
   WRITELN(Mlist.Y:7:4);
  GOTOXY(31,5+2*(I-1));
   WRITELN(Mlist.Z);
   PLIST:=PLIST^.next;
   I:=I+1;
 END;
    READKEY;
    END;
 
{-------------------------------------------------------}
 Procedure DobNach(VAR N:INTEGER);
 LABEL MM;
Var J:CHAR;
 BEGIN
   TABEL(1);
   GOTOXY(5,5);
   READLN(Mlist.X);
   GOTOXY(18,5);
   READLN(Mlist.Y);
MM:  GOTOXY(31,5);
   READ(J);
   CASE J OF
   'T':Mlist.Z:=TRUE;
   'F': Mlist.Z:=FALSE;
    ELSE GOTO MM;
   END;
   NEW(Plist);
   Plist^.inf:=Mlist;
   Plist^.next:=p1;
   p1:=Plist;
   N:=N+1;
   readkey;
  END;
{-------------------------------------------}
 Procedure DELETE(Var PList:ptrlist);
 BEGIN
 clrscr;
  WHILE P1<>NIL DO
  BEGIN
    PLIST:=p1^.next;
    dispose(p1);
    P1:=PLIST;
  END;
  WRITELN('CPICOK UDALEN');
  PLIST:=NIL;
  P1:=PLIST;
  P2:=PLIST;
  readkey;
  END;
  END.

PROGRAM JSPICOK;
USES CRT,SPICOK;
VAR
M1,N:INTEGER;
{                  SPICKI                   }
{-------------------------------------------}
 BEGIN
    REPEAT
     CLRSCR;
    WRITELN('   MENU');
    WRITELN('1 Cozdat(N)');
    WRITELN('2 DobNach(N)');
    WRITELN('3 DobKON(N)');
    WRITELN('4 BIBOD(N:INTEGER;list:A)');
    WRITELN('5 DELETE(PList)');
    WRITELN('6 EXIT');
    WRITELN;
    READLN(M1);
     CASE M1 OF
1:  Cozdat(N);
2:  DobNach(N);
3:  DobKON(N);
4:  BIBOD(N,Mlist);
5:  DELETE(PList);
6:  Exit;
     END;
 UNTIL M1>=8;
  READKEY;
 END.