Заполнение матрицы по спирали, начиная с центральной клетки, против часовой стрелки - Pascal ABC

uses crt;
var a:array[1..21,1..21] of integer;
    n,m,k,z,x,y:integer;
begin
repeat
write('Введите число от 1 до 10 n=');
readln(n);
until n in [1..10];
m:=2*n+1;
x:=n+1;
y:=n+1;
k:=0;
for z:=1 to m*m do
 begin
  a[x,y]:=z-1;
  case k mod 4 of
  0:begin
    dec(x); //вверх
    if m-x=y then inc(k);//поворот
    end;
  1:begin
    dec(y);//влево
    if x=y then inc(k);//поворот
    end;
  2:begin
    inc(x);//вниз
    if m-x+1=y then inc (k);//поворот
    end;
  3:begin
    inc(y); //вправо
    if y=x then inc(k);//поворот
    end;
  end;
 end;
for x:=1 to m do
  begin
    for y:=1 to m do
    write(a[x,y]:3);
    writeln;
  end;
end.