Составить программу, которая заполняет квадратную матрицу порядка п натуральными числами 1, 2, 3, ..., n2, записывая их в

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of byte;
  n,i,j,c,k: byte;
begin
  repeat
    write('Введите размер матрицы n: ');
    readln(n);
  until n<=20;
 
  i:=1; j:=1; c:=0; k:=1;
  repeat
    //вправо
    while (k<=n*n)and(j<=n-c) do
    begin
      a[i,j]:=k;
      inc(j);
      inc(k);
    end;
    //вниз
    inc(i); dec(j);
    while (k<=n*n)and(i<=n-c) do
    begin
      a[i,j]:=k;
      inc(i);
      inc(k);
    end;
    //влево
    dec(j); dec(i);
    while (k<=n*n)and(j>=1+c) do
    begin
      a[i,j]:=k;
      dec(j);
      inc(k);
    end;
    //вверх
    inc(c); inc(j); dec(i);
    while (k<=n*n)and(i>=1+c) do
    begin
      a[i,j]:=k;
      dec(i);
      inc(k);
    end;
    inc(j); inc(i);
  until k>n*n;
 
  writeln('Матрица по спирали:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.