заполнение массива (pascal)

[megachuhancer]

Да уж... Мало того, что я переусложнил, я ещё и нерабочий код запостил. Действительно тут всё просто.

program Project5;
{$APPTYPE CONSOLE}
const
  n = 10;
var
  a: array [1..n, 1..n] of Integer;
  i, j, k, dk, l: Integer;
begin
  k := 1; dk := 3; l := 1;
  for i := 2 to n do begin
    if (i > 2) and (i mod 2 = 0) then Inc(dk, 2);
    Inc(k, dk);
  end;
  for i := 1 to n div 2 do
    if i mod 2 = 0 then
      for j := i to n - i + 1 do begin
        a[j, i] := l; Inc(l);
        a[n - j + 1, n - i + 1] := k; Dec(k);
      end
    else
      for j := n - i + 1 downto i do begin
        a[j, i] := l; Inc(l);
        a[n - j + 1, n - i + 1] := k; Dec(k);
      end;
  if n mod 2 = 1 then a[n div 2 + 1, n div 2 + 1] := l;
  for i := 1 to n do begin for j := 1 to n do Write(a[i, j]: 2, ' '); WriteLn; end;
  ReadLn;
end.