Матрица в Паскале

[Stas9n]

Люди, которые разбираются в паскале, помогите написать программу, а то горю...
Условие: Разработать алгоритм и программу для формирования матрицы произвольной размерности n по заданному закону:
13 14 15 16 17
12 3 4 5 18
11 2 1 6 19
10 9 8 7 20
25 24 23 22 21

[meravingin]

алгоритм же проще простого отцентра по часовой стрелке происходи нарастание +1 к предыдущему значению

[puporev]

Если конкретно для этого условия.

uses crt;
const n=5;
var a:array[1..5,1..5]of byte;
    x,y,k,z:integer;
begin
clrscr;
x:=n div 2+1;y:=n div 2+1;{начало пути}
k:=0;{счетчик поворотов}
for z:=1 to n*n do
  begin
   a[x,y]:=z;{очередное число 1,2,3...25}
   case k mod 4 of
   0:begin
     dec(y);{влево}
     if (n-x)=y then inc(k);{поворот}
     end;
   1:begin
     dec(x);{вверх}
     if(x)=y then inc(k);{поворот}
     end;
   2:begin
     inc(y);{вправо}
     if(n-x+1)=(y) then inc (k);{поворот}
     end;
   3:begin
     inc(x);{вниз}
     if y=(x) then inc(k);{поворот}
     end;
   end;
  end;
for x:=1 to n do
  begin
    for y:=1 to n do
    write(a[x,y]:4);
    writeln;
  end;
readln
end.

[Stas9n]

Сообщение от puporev

Если конкретно для этого условия.

uses crt;
const n=5;
var a:array[1..5,1..5]of byte;
    x,y,k,z:integer;
begin
clrscr;
x:=n div 2+1;y:=n div 2+1;{начало пути}
k:=0;{счетчик поворотов}
for z:=1 to n*n do
  begin
   a[x,y]:=z;{очередное число 1,2,3...25}
   case k mod 4 of
   0:begin
     dec(y);{влево}
     if (n-x)=y then inc(k);{поворот}
     end;
   1:begin
     dec(x);{вверх}
     if(x)=y then inc(k);{поворот}
     end;
   2:begin
     inc(y);{вправо}
     if(n-x+1)=(y) then inc (k);{поворот}
     end;
   3:begin
     inc(x);{вниз}
     if y=(x) then inc(k);{поворот}
     end;
   end;
  end;
for x:=1 to n do
  begin
    for y:=1 to n do
    write(a[x,y]:4);
    writeln;
  end;
readln
end.

Почему то экран весь темный и ничего не выводит... Хотя прога запускается!

[puporev]

Понятия не имею, у меня работает.

Вот программа в Турбо Паскале 7.0