Алгоритм заполнения квадратной матрицы по спирали

[beregok]

Всем добрый день!
Такая вот задачка:
Создать алгоритм, заполняющий квадратную матрицу, начиная с центрального элемента по спирали.(размерность матрицы нечетная 5х5,7х7)
например n=3 m=3

9 |2 3
8 1 4
7 6 5

1 - центральный єлемент матрицы

[MalexG]

program d8;

uses
  crt;

const
  Max = 11;

var
  n, m: byte;
  center: byte;
  i: byte;
  indN, indM: byte;
  Arr: array[1..Max, 1..Max] of integer;

begin
  clrscr;
  writeln('vvedite razmernost'' massiva < 11 ');
  repeat
    readln(n);
  until odd(n) and (n > 1) and (n < 11);

  m := n;

  Randomize;

  center := n div 2 +1;
  i := 0;

  Arr[center, center] := Random(100);
  while i <> center - 1 do
  begin
    inc(i);
    indN := center - i;
    for indM := center to center + i do
      Arr[indN, indM] := Random(100);
    indM := center + i;
    for indN := center - i + 1 to center + i do
      Arr[indN, indM] := Random(100);
    indN := center + i;
    for indM := center + i - 1 downto center - i do
      Arr[indN, indM] := Random(100);
    indM := center - i;
    for indN := center + i - 1 downto center - i do
      Arr[indN, indM] := Random(100);
    if i >= 2 then
    begin
      indN := center - i;
      for indM := center - i + 1 to center - 1 do
        Arr[indN, indM] := Random(100);
    end;
  end;
  for indN := 1 to n do
  begin
    for indM := 1 to m do
      write(Arr[indN, indM], ' ');
    writeln;
  end;
  readln;
end.

[wall66]

ну теоретически можно сделать цикл выполняющийся пока не наткнулся на край матрицы (или пока матрица не заполнена):

• каждый такт меняется направление сдвига координат на 90 градусов
• каждые два такта увеличивается на один длина ряда заполнения
• начало с центральной заполненной ячейки

[beregok]

спасибо
попробую в сишке реализовать