Получить квадратную матрицу порядка n

 type mas=array[1..100,1.. 100] of integer;
   var a:mas;
       i,j,n,m:integer;
 begin
   write('n=');readln(n);
   for i:=1 to n do 
     begin
       for j:=1 to n do 
         begin
             if i mod 2 =1 then
             a[i,j]:=j
             else a[i,j]:=n-j+1;
             write(a[i,j]:4);
         end;
       writeln;
     end;
end.

uses crt;
var a:array[1..100,1.. 100] of integer;
    i,j,n:integer;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i mod 2 =1 then a[i,j]:=j
    else a[i,j]:=n-j+1;
    if ((j mod 2=0)and((i mod 4=0)or((i+1)mod 4=0)))
    or((j mod 2=1)and(((i mod 4<>0)and(i mod 2=0))or(((i+1)mod 4<>0)and((i+1)mod 2=0))))
    then a[i,j]:=-a[i,j];
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.