Помогите пожалуйста нарисовать вот такую змейку в матрице размером N*N.

При N=3 то надо нарисовать:

1 2 6
3 5 7
4 8 9

При N=4 то надо нарисовать:

1 2 6 7
3 5 8 13
4 9 12 14
10 11 15 16

2<N<100.

var n, i, j: longint;
    a: array[0 .. 127, 0 .. 127] of word;

function F(i, j: longint): word;
  var s: word;
begin
  s := i + j;
  if s >= n then
    F := n * n - F(n - 1 - i, n - 1 - j) + 1
  else
    F := s * (s + 1) div 2 + 1 + (s mod 2) * (i - j) + j;
end;

begin
  Readln(n);
  for i := 0 to n - 1 do begin
    for j := 0 to n - 1 do begin
      a[i][j] := F(i, j);
      Write(a[i][j] : 3);
    end;
    Writeln;
    Writeln;
  end;
end.

Спасибо большое.

А как сделать чтобы она заполнялась не по-строчно а по-элементно?