Заполнение матрицы Pascal

[lebrosha]

Помогите с квадратной матрицой. Нужно заполнить матрицу целыми числами змейкой с правого верхнего конца к левому нижнему.
Вообще должно получиться что-то вроде этого:
6 5 1 0
12 7 4 2
13 11 8 3
15 14 10 9
заранее благодарен.

[werser]

Может вы имеете введу:
4 3 2 1 0
5 6 7 8 9
14 13 12 11 10
15 16 17 18 19
24 23 22 21 20

С правого верхнего до левого нижнего змейкой.

[lebrosha]

нет, именно так как показанно в матрице

[lebrosha]

вот процедура которая заполняет матрицу, наоборот, с легого верхнего до павого нижнего.

procedure Fill(var a:TMatrix;n:integer);
var i,j,x,f,k : integer;
    l         : boolean;
    d         : real;
begin {Fill}
  l:=false;
  for k:=1 to sqr(n) do
  begin
    f:=k;
    If f>(n*(n+1)/2) then
    begin
      l:=true;
      f:=sqr(n)+1-f;
    end;
    D:=sqrt(1+4*(2*f-1));
    x:=trunc((-1+D)/2);
    If x mod 2 = 0 then
    begin
      j:=n-x-1+(f-((x+1)*x)div 2);
      i:=f-((x+1)*x)div 2;
    end
    else
    begin
      j:=n-(f-((x+1)*x)div 2)+1;
      i:=x+2-(f-((x+1)*x)div 2);
    end;
    if l then
    begin
      i:=n+1-i;
      j:=n+1-j;
    end;
    a[i,j]:=k-1;
  end;
    end; {Fill}

вот тока никак не могу в ней разобраться и переделать под себя.