Массив: Заполнение матрицы по заданном принципу

const n=5;
type mas=array[1..n,1..n] of integer;
var a:mas;
    i,ii,j,jj,k:integer;
begin
 for i:=2 to n-1 do
  for j:= 2 to n-1 do a[i,j]:=0;
 i:=1;j:=1;a[1,1]:=1;
 for k:=2 to 4*(n-1) do
  begin
   case k of
    1..n:        begin ii:=0;jj:=1 end;
    n+1..2*n-1:  begin ii:=1;jj:=0 end;
    2*n..3*n-2:  begin ii:=0;jj:=-1 end;
    3*n-1..4*(n-1):begin ii:=-1;jj:=0 end;
   end;
  i:=i+ii;j:=j+jj;
  a[i,j]:=k;writeln(i,' ',j,' ',a[i,j],k)
 end;
 for i:=1 to n do
  begin
   for j:= 1 to n do write(a[i,j]:4);writeln
  end
end.

const n=10;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=1 then a[i,j]:=j
    else if (j=n)and(i>1) then a[i,j]:=n+i-1
    else if (i=n)and(j<n) then a[i,j]:=3*n-j-1
    else if (j=1)and(i<n) then a[i,j]:=4*n-i-2
    else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end.