необходимо перевести код с паскаля на C#

[kiraone]

Ребят помогите пожалуйста перевести код с паскаля на с#!

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  n,i,k,dx,dy, m, x1,x2, t:Integer;
  p: array [1..8, 'a'..'h'] of Char;
  j,y1,y2,c:char;
  s:string;
 
procedure swap(var a,b:Char);
var
  t:char;
begin
  t := b;
  b := a;
  a := t;
end;
 
procedure f1(c:char);
begin
  p[i]['b'] := c;
  p[i]['d'] := c;
  p[i]['f'] := c;
  p[i]['h'] := c;
end;
 
procedure f2(c:char);
begin
  p[i]['a'] := c;
  p[i]['c'] := c;
  p[i]['e'] := c;
  p[i]['g'] := c;
end;
 
begin
  Assign(input,'input.txt');
  Assign(output,'output.txt');
 
  Reset(Input);
  Rewrite(Output);
 
  //Readln(n);
 
  for i:= 8 downto 6 do
  begin
    if(i mod 2 = 0) then
      f1('b')
    else
      f2('b');
  end;
 
  for i:=1 to 3 do
  begin
    if(i mod 2 <> 0) then
      f2('w')
    else
      f1('w');
  end;
 
   for i:= 8 downto 1 do
    for j:='a' to 'h' do
      if(p[i][j] <> 'w') and (p[i][j] <> 'b') then
        p[i][j] := ' ';
 
  Readln(n);
 
  for m:=1 to n do begin
    Readln(s);
    if(s[3] = '-') then
    begin
        x1 :=  strtoint(s[2]);
        y1 :=  s[1];
 
        x2 :=  strtoint(s[5]);
        y2 := s[4];
 
        swap( p[ x1 ] [y1 ], p[ x2 ][ y2 ] );
 
     
        if( p[x2][y2] = 'w') and (x2 = 8) then
          p[x2][y2] := 'W';
 
        if( p[x2][y2] = 'b') and (x2 = 1) then
          p[x2][y2] := 'B';
    end
    else
    begin
      k := Pos(':',s);
      while(k <> 0) do
      begin
 
        x1 :=  strtoint(s[2]);
        y1 :=  s[1];
 
        x2 :=  strtoint(s[5]);
        y2 := s[4];
 
 
        dx := -1;
        if(x2 > x1) then
        dx := 1;
 
        dy := -1;
        if(y2 > y1) then
        dy := 1;
 
        c :=  p[ x1 ][ y1 ];
 
        if( p[ x1 ][ y1 ] = 'W' ) or (p[ x1 ][ y1 ] = 'B') then
        begin
            while (x1 <> x2) or (y1 <> y2) do
            begin
              p[x1][y1] := ' ';
 
              Inc(x1,dx);
              Inc(y1,dy);
            end;
        end
        else
        begin
          Inc(x1,dx);
          Inc(y1,dy);
 
          p[x1][y1] := ' ';
        end;
 
        x1 :=  strtoint(s[2]);
        y1 :=  s[1];
 
        x2 :=  strtoint(s[5]);
        y2 := s[4];
 
        p[ x2 ][ y2 ] := c;
 
        p[ x1 ][ y1 ] := ' ';
 
        if( p[x2][y2] = 'w') and (x2 = 8) then
          p[x2][y2] := 'W';
 
        if( p[x2][y2] = 'b') and (x2 = 1) then
          p[x2][y2] := 'B';
 
        Delete(s,1,3);
        k := Pos(':',s);
      end;
    end;
  end;
 
 
   for i:= 8 downto 1 do
  begin
    for j:='a' to 'h' do
    begin
      if(p[i][j] = ' ') then
        begin
          t := Ord(j) - ord('a');
          if ( ( i mod 2 = 0 ) and ( t mod 2  = 0 ) ) or ( ( i mod 2 <> 0 ) and ( t mod 2  <> 0 ) )  then
            write('.')
          else
            write('-');
        end
        else write(p[i][j]);
    end;
    Writeln;
  end;
 
  close(Output);
end.

[Stilet]

Может лучше задачу опишешь?

[kiraone]

Сообщение от Stilet

Может лучше задачу опишешь?

ой это такая дурацкая задача!
http://informatics.mccme.ru/moodle/m...apterid=1018#1
вот, условие длинное поэтому ссылку дал..