Задача в Pascal (входные-выходные данные)

[Remi]

Дано натуральное число n. Заполнить квадратную матрицу nxn числами от 1 до n2 "змейкой".
Входные данные:
3

Выходные данные:
1 2 6
3 5 7
4 8 9

Вот код, но выводится не то что нужно=( совсем не то....

Program zad_2;
Uses crt;
Var a:array[1..100,1..100]of integer;
n,i,j,m,s: integer;
inp,out: text;
Begin clrscr;
Assign(inp,'serpent.in.txt');
Reset(inp);
Readln(inp,n);
m:=0;
s:=1;
while true do begin
inc(s);
for i:=n downto 1 do
for j:=n downto 1 do
if i+j=s then begin
inc(m);
a[i,j]:=m;
end;
if m=n*n then
break;
inc(s);
for i:=1 to n do
for j:=1 to n do
if i+j=s then begin
inc(m);
a[i,j]:=m;
end;
if m=n*n then
break;
end;

read(inp,a[i,j]);
close(inp);

Assign(out,'serpent.out.txt');
rewrite(out);
for i:=1 to n do begin
for j:=1 to n do
write(out,a[i,j]:6);
writeln;
end;
close(out);
End.

[SkyM@n]

Оформяем код!