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

[Pautina]

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

[St@senk@]

Работает она так же как и у меня.

for i:=1 to yl do
    begin
    for j:=1 to xl do
        begin
        a1[j,i]:=(i-1)*xl+j;
        a2[j,i]:=false;
        end;
    end;

Вот тут мы заполняем матрицу.

for i:=1 to yl do
    begin
    for j:=1 to xl do
        begin
        read(a1[j,i]);
        a2[j,i]:=false;
        end;
    end;

Вот так мы будем её считывать с клавиатуры.
А дальше

x:=1;
y:=1;
dir:=0;
posl[1]:=a1[(xl div 2)+1,(yl div 2)+1];
i:=xl*yl;
repeat
a2[x,y]:=true;
posl[i]:=a1[x,y];
dec(i);
CS:case dir of
0:if (x=xl) or a2[x+1,y] then
            begin
            dir:=1;
            goto CS;
            end
                        else inc(x);
1:if (y=yl) or a2[x,y+1] then
            begin
            dir:=2;
            goto CS;
            end
                        else inc(y);
2:if (x=1) or a2[x-1,y] then
            begin
            dir:=3;
            goto CS;
            end
                        else dec(x);
3:if (y=0) or a2[x,y-1] then
            begin
            dir:=0;
            goto CS;
            end
                        else dec(y);
end;
until (y=(yl div 2)+1) and (x=(xl div 2)+1);

Это сам обход матрицы

Код

for i:=1 to xl*yl do
write(posl[i],' ');

Это выпечатывание элементов том порядке, в котором тебе нужно.

[Pautina]

а не мог бы ты прикрепить саму прогу?