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

Задача: Заполнить массив размерности NxM числами 1, 2, 3, … по спирали, начиная с правого верхнего угла. (При заполнении массива двигаться по часовой стрелке).

Пример матрицы заполненной по спирали

Перед тем как привести фрагмент кода добавим, что… Вначале мы будем заполнять горизонтальную строку с первого по третий (для общего случая по предпоследний), затем последний столбец с первой строки по… правильно, по предпоследнюю. Затем заполним нижнюю горизонтальную (7-9) в обратном порядке и левую вертикальную снизу вверх (10-12).

Реализация на языке Pascal:

Program tip;
uses crt;
Var
a:array[1..4,1..4] of integer;
z,krug,g1,g2,g3,g4,N,i,j:integer;
 
Begin
  clrscr;
  N:=4;
  z:=1;
  {цикл, который отвечате за количество витков спирали}
  for krug:=1 to ((n+1) div 2) do
    begin
      {цикл, верхней горизотальной части витка}
      for g1:=krug to N-krug do
        begin
          a[krug,g1]:=z;
          inc(z);
        end;
      {цикл, правой вертикальной части витка (той, что сверху вниз)}  
      for g2:=krug to N-krug do
        begin
          a[g2,((n+1)-krug)]:=z;
          inc(z);
        end;
      {цикл, нижней горизонтальной части витка (той, что справа налево)}  
      for g3:=((N+1)-krug) downto krug+1 do
        begin
          a[((N+1)-krug),g3]:=z;
          inc(z);
      end;
      {цикл, левой вертикальной части витка (той, что снизу вверх)}  
      for g4:=((N+1)-krug) downto krug+1 do
        begin
          a[g4,krug]:=z;
          inc(z);
        end;
    end;
 
  for i:=1 to 4 do
    begin
      Writeln;
      for j:=1 to 4 do
          Write(a[i,j]:5);
      end;
  readln;
End.