Формирование магического квадрата

[waitisova]

Здравствуйте!

Помогите, пожалуйста, разобраться с программой формирования магического квадрата n * n , где n-четное число.

Нашел исходник на паскале, нужно перевести на c#.
Я понимаю, что элементы массива на си шарпе начинаются с 0, а не с 1 как в паскале, но перепробовав огромное количество вариантов, так ничего и не получилось.

C#:

{
    class Program
    {
        static void Main(string[] args)
        {
            int i, j, k;
 
            Console.Write("Введите размерность магическрого квадрата:");
            int n = Int32.Parse(Console.ReadLine());
            int[,] m = new int[n, n];
 
            if (n != 0 && n != 1 && n != 2 && n % 2 == 1)
            {
 
 
                i = 1; j = n / 2 + 1;
                int p = n * n;
 
                for (k = 1; k < p; k++)
                {
                    m[i, j] = k;
                    int z = k % n;
                    if (z == 0) { i++; }
                    else
                    {
                        i = i - 1; j++;
                        if (i == 0) { i = n; }
                        if (j > n) { j = 1; }
 
 
                    }
                }
 
            }
 
            else Console.WriteLine("Некорректное значение n");
 
 
 
            for (i = 0; i < n; i++)
            {
                for (j = 0; j < n; j++)
                { Console.Write(m[i, j]); }
                Console.WriteLine("");
            }
        }
 
    }
}

Паскаль (код не совсем полный, кусками из программы повыделял):

const
mn=16;
Var
    i, j, k: Integer;
    a: Array[1 .. mn, 1 .. mn] Of Integer;
  Begin
    p := True; 
 
    If Odd(n) Then
      Begin
        i := 1; j := Succ(n div 2);
        For k := 1 To Sqr(n) do
          Begin
            a[i,j] := k;
            If k mod n = 0 Then Inc(i)
            Else
              Begin
                Dec(i); Inc(j);
                If i = 0 Then i := n;
                If j > n Then j := 1
              End
          End;
      End
 
 For i := 1 To n Do
          Begin
            For j := 1 To n Do
              Write(a[i, j]: 4);
            WriteLn;
          End;
End.