Двумерный массив вывод элементов змейкой

[egor67]

Здравствуйте.Имеется вот таккая програмаа.Она не моя и я просто хочу разобраться , как в ней всё устроено (скоро буду делать на подобии такой).Опишите мне пожайлуста, что тут делает и за ,что отвечает каждая переменная.и для чего идёт проверка Odd.Буду очень признателен!Очень уж хочется разобраться, но самому не вышло.

uses crt;
var n,i,j,l,k:integer;
    a:array[1..20,1..20]of integer;
begin
clrscr;
write('n=');readln(n);
k:=0;
For l:=1 to 2*n-1 do{количество диагоналей, параллелных побочной}
  begin
    if l>n then{выше диагонали}
     begin
      if odd(l) then
       for i:=l-n+1 to n do
        begin
         k:=k+1;
         a[i,l-i+1]:=k;
        end
       else
       for i:=n downto l-n+1 do
        begin
         k:=k+1;
         a[i,l-i+1]:=k;
        end
        end
       else
       if l<=n then{ниже диагонали и на ней}
     begin
      if odd(l) then
       for i:=1 to l do
        begin
         k:=k+1;
         a[i,l-i+1]:=k;
        end
      else
       for i:=l downto 1 do
        begin
         k:=k+1;
         a[i,l-i+1]:=k;
        end;
     end;
   end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[veniside]

odd() — проверка на нечётность.

[egor67]

Сообщение от veniside

odd() — проверка на нечётность.

Это я знаю.Для чего он проверяет на нечётность сдесь?

[Serge_Bliznykov]

если очень вкратце, то для нечётных диагоналей заполнение идёт в возрастающем порядке, для чётных - в убывающем...

[egor67]

А как насчёт переменных?Для чего нужна каждая из них и , что она делает.
Ну или если можно(комментарий к каждой строке добавить) что в данной строке происходит!