Заполнить массив "змейкой" от меньшего к большему

uses crt;
const nmax=50;{максимальный размер}
var a:array[1..nmax,1..nmax]of integer;{матрица}
    n:integer; {размер матрицы}
    i,j:integer;{счетчики при движениии по матрице}
    x,y:integer;  {координаты ячейки}
    num:integer; {число в ячейке (при n=4 от 1до 16)}
    add:integer;  {длина отрезка от поворота до поворота}
    dir:integer;  {шаг =+1 при движении вправо и вниз, 
                  =-1 при движении влево и вверх}
begin
clrscr;
repeat
write('n=');readln(n);
until (n>1)and(n<=nmax);{проверяем правильность размера}
x:=0;
y:=1;
num:=1;
Add:=n;
dir:=1;
while (add<>0) do
begin
  i:=0;
  while (i<>add) do {вправо}
    begin
    x:=x+dir;
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
  i:=0;
  add:=add-1;
  while (i<>add) do {вниз}
    begin
    y:=y+dir;
    a[y,x]:=num;
    num:=num+1;
    i:=i+1;
    end;
  dir:=dir*(-1); {меняем знак и тоже самое влево и вверх}
end;
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.