Заполнить матрицу n на n по спирали

const n1=15;
var a:array [1..n1,1..n1] of integer;
    i,j,n,imax,jmax,imin,jmin,k:integer;
begin
 write('n=');readln(n);
 if (n<=0) or (n>n1) then writeln('Число ',n,' должно быть большее, чем 0 и меньшее, чем 16')
 else
 begin
 
  k:=0;
  imax:=(n div 2)+1;
  jmax:=(n div 2)+1;
  imin:=(n div 2)+1;
  jmin:=(n div 2);
  repeat
   for i:=imax downto imin do
    a[i,jmax]:=1;
   k:=k+1;
   imin:=imax-k;
   for j:=jmax downto jmin do
    a[imin,j]:=1;
   k:=k+1;
   jmin:=jmax-k;
   imax:=imin+k;
   for i:=imin to imax do
    a[i,jmin]:=1;
   k:=k+1;
   imax:=imin+k;
   jmax:=jmin+k;
   for j:=jmin to jmax do
    a[imax,j]:=1;
   k:=k+1;
  until k=n;
  
  for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j],' ');
   writeln();
  end;
 end;
end.

const n1=20;
var a:array [1..n1,1..n1] of integer;
    i,j,n,k,p:integer;
begin
repeat
write('Введите размер массива от 3 до 20 n=');
readln(n);
until n in [3..20];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
k:=0;
i:=0;
j:=n;
for p:=1 to (n+3)div 4 do
 begin
  //вниз
  while i<n-k do
   begin
    inc(i);
    a[i,j]:=1;
   end;
  //влево
  while j>1+k do
   begin
    dec(j);
    a[i,j]:=1;
   end;
  inc(k);
  //вверх
  while i>k+1 do
   begin
    dec(i);
    a[i,j]:=1;
   end;
  inc(k);
  //вправо
  while j<n-k do
   begin
    inc(j);
    a[i,j]:=1;
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:2);
  writeln;
 end;
end.

const n1=15;
var a:array [1..n1,1..n1] of integer;
    i,j,n,k,p,f:integer;
begin
repeat
write('Введите размер массива от 3 до 15 n=');
readln(n);
until n in [3..15];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
i:=n div 2+1;
j:=n div 2+1;
a[i,j]:=1;
k:=0;//длина перемещения в 1 направлении
f:=0; //фиксация выхода из программы
repeat
inc(k);
p:=0;//счетчик ходов в 1 направлени
while(p<k)and(f=0) do //вверх
 begin
  dec(i);
  inc(p);
  if i>=1 then a[i,j]:=1 else  f:=1;
 end;
inc(k);
p:=0;
while(p<k)and(f=0) do //влево
 begin
  dec(j);
  inc(p);
  if j>=1 then a[i,j]:=1 else  f:=1;
 end;
inc(k);
p:=0;
while(p<k)and(f=0) do //вниз
 begin
  inc(i);
  inc(p);
  if i<=n then a[i,j]:=1 else f:=1;
 end;
inc(k);
p:=0;
while(p<k)and(f=0) do //вправо
 begin
  inc(j);
  inc(p);
  if j<=n then a[i,j]:=1 else f:=1;
 end;
until f=1;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:2);
  writeln;
 end;
end.