Заполнение массива, Заполнить массивметодом змейки Опции

[Angelok]

Помогите дорешать задачу... У меня не заполняется как нужно.
Дан двумерный массив T(n, n) заполнить его методом змейки числами от 1 до n^2. Например, матрица T(4, 4) будет иметь вид:
1 2 3 4
8 7 6 5
9 10 11 12
16 15 14 13
Алгоритм построения матрицы оптимизировать. Использовать один цикл.

 Type massiv=array [1..10,1..10] of byte;
Var a:massiv;
    i,j,u,n:byte;
    k:real;
Begin
     Repeat
           Writeln('Введите размер массива');
           Readln(a);
     Until n>0;
     u:=1;
     For i:=1 to n do
     begin
       k:=i mod 2;
       If k=0 then
              For j:=n downto 1 do
                  begin
                       a[i,j]:=u;
                       Write(a[i,j]:3);
                       u:=u+1;
                  end
       
       else
           For j:=1 to n do
               begin
                    a[i,j]:=u;
                       Write(a[i,j]:3);
                       u:=u+1;
               end;
           Writeln;
     end;
     Readln;
end.

[volvo]

Вот эта реализация прекрасно работает: Двумерный массив
(можешь посмотреть и ссылку в предыдущем посте)