Квадратная матрица Опции

[Pautina]

Доброго времени суток! очень нужна ваша помощь. Помогите решить задачу.
Начиная с центра. обойти по спирали все элементы квадратной матрицы размером 13х13 (распечатывая их в порядке обхода).
Заранее огромное спасибо!

[volvo]

const
  size = 13;

var
  X, Y: integer;
  square: array[1 .. size, 1 .. size] of integer;

function check(X, Y: integer): boolean;
begin
  check := ((X > 0) and (X <= size) and
            (Y > 0) and (Y <= size))
end;

type
  dirs = (_up, _down, _left, _right);
  axis = (_X, _Y);
const
  offset: array[dirs, axis] of integer = (
    (0, -1), (0, 1), (1, 0), (-1, 0)
  );

function go(where: dirs; delta: integer): boolean;
var i: integer;
begin
  go := false;
  for i := 1 to delta do
    if check(Y + offset[where, _Y], X + offset[where, _X]) then begin
      X := X + offset[where, _X];
      Y := Y + offset[where, _Y];
      write(square[Y, X]:4);
    end
    else exit;
  go := true;
end;

var
  i, j, plus: integer;
  status: boolean;
begin
  for i := 1 to size do
    for j := 1 to size do
      square[i, j] := (i - 1)*size + j;

  for i := 1 to size do begin
    for j := 1 to size do write(square[i, j]:4);
    writeln;
  end;


  plus := 0;
  X := size div 2 + 1; Y := size div 2 + 1;
  write(square[Y, X]:4);
  status := true;
  repeat
    inc(plus);
    status := status and go(_right, plus);
    status := status and go(_down, plus);
    inc(plus);
    status := status and go(_left, plus);
    status := status and go(_up, plus);
  until not status;

end.

Порядок обхода из центра: влево, вниз, вправо, вверх... Если надо по-другому, меняй направления в цикле repeat/until ... В начале распечатывается матрица, чтобы можно было проверить правильность работы программы...

[@лё][@]

Всё-таки порядок обхода в выше написанной программе: из центра влево, вниз, вправо, вверх... Правда программист мог сидеть и спиной к монитору Спасибо этому программисту, мне его программа тоже пригодится