Заполнение двумерного массива змейкой

program z2;
uses crt;
var
a:array[1..9] of integer;
i,p,j,n,k:integer;
begin
 
writeln('Введи элементы одномерного массива : ');
for i:=1 to 9 do
readln(a[i]);
begin
FOR i:=1 TO n-1 DO
FOR j:=1 TO n DO
if a[i]<a[j] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
end;
writeln('Вывод массива : ');
i:=1;
while i<=9 do
begin
k:=1;
while (k<=3) and (i<=9) do
begin
write(a[i]:5);
i:=i+1;
k:=k+1;
end;
writeln;
end;
end.

program z2;
uses crt;
const nmax=16;
var a:array[1..nmax*nmax] of integer;
    b:array[1..nmax,1..nmax] of integer;
    i,p,j,n,k:integer;
begin
randomize;
repeat
write('Размер масива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n*n do
a[i]:=random(201)-100;
FOR i:=1 TO n*n-1 DO
FOR j:=i+1 TO n*n DO
if a[i]<a[j] then
 begin
  p:=a[i];
  a[i]:=a[j];
  a[j]:=p;
 end;
writeln('Вывод исходного массива :');
for i:=1 to n*n do
write(a[i]:4);
writeln;
writeln('Двухмерный массив змейкой:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if odd(i)then b[i,j]:=a[(i-1)*n+j]
    else b[i,j]:=a[(i*n)-j+1];
    write(b[i,j]:4);
   end;
  writeln;
 end;
end.