заполнение змейкой массива

[artemjke]

в общем, заполнить массив змейкой типа
761
852
943

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,imx:byte;
    mx,sm:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=n downto 1 do
   begin
    if odd(j) then a[i,j]:=(j-1)*n+(n-i+1)
    else a[i,j]:=(j-1)*n+i;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.

в данной работе он заполняет с правого нижнего угла. соображалка не доходит как переделать чтобы начал справа сверху. Заранее спасибо

[Alex11223]

  for j:=1  to n

[artemjke]

Alex11223, так он начинает заполнять слева снизу

[Alex11223]

Подумайте какие изменение надо внести в другой цикл (for i:=1 to n).

[artemjke]

больше спасибо, понял