Заполнить двухмерный массив "змейкой"

[hottab1]

Здравствуйте, я бы хотел попросить Вам создать программу, которая заполнит элементы массива вот в такой последовательности:
1 3 6 10
2 5 9 13
4 8 12 15
7 11 14 16

[BDA]

Написал только потому, что она уже написана

var
  a: array [1 .. 100, 1 .. 100] of word;
  i, j, k: word;
  n, m: integer;

function min(a, b: integer): word;
begin
  min := (-abs(a - b) + a + b) div 2;
end;

function max(a, b: integer): word;
begin
  max := (abs(a - b) + a + b) div 2;
end;

begin
  readln(n, m);
  k := 1;

  for i := 1 to m + n - 1 do
    for j := min(i, n) downto max(1, i - m + 1) do
    begin
      a[j, i - j + 1] := k;
      inc(k);
    end;

  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4);
    writeln;
  end;
  readln;
end.

UPD
Решил написать "красиво"

const
  place = 4;

var
  i, j, n, m, h, s: word;

begin
  readln(n, m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      h := i + j - 2;
      s := (1 + h) * h div 2;
      if h > n then
        dec(s, (1 + h - n) * (h - n) div 2);
      if h > m then
        dec(s, (1 + h - m) * (h - m) div 2);
      if h >= n then
        dec(s, h - n + 1);
      write((s + j):place);
    end;
    writeln;
  end;
  readln;
end.

[hottab1]

Большое спасибо