Заполнение матрицы в соответствии со схемой - Pascal

uses crt;
type
  arr = array [1..100, 1..100] of integer;
 
var
  a: arr;
  p, q, n: integer;
 
procedure makeArr(var massiv: arr; nMax: integer);
var
  k, m, i: integer;
begin
  k := 0;
  m := 0;
  repeat
    for i := m + 1 to nMax - m do
    begin
      inc(k);                      
      a[i, m + 1] := k;
    end;
    for i := m + 2 to nMax - m do
    begin
      inc(k);
      a[nMax - m, i] := k;
    end;
    for i := nMax - m - 1 downto m + 1 do
    begin
      inc(k);                                  
      a[i, nMax - m] := k;
    end;
    for i := nMax - m - 1 downto m + 2 do
    begin
      inc(k);
      a[m + 1, i] := k;
    end;
    inc(m);
  until m + 1 = nMax div 2 + 2;
end;
 
begin
  writeln('Vvesti chislo');
  readln(n); 
  makeArr(a,n);
  for p := 1 to n do
  begin
    for q := 1 to n do
      write(a[p, q]:3, ' ');
    writeln;
  end;
end.