Заполнить массив по спирали

const n=2;
var a:array[1..2*n+1,1..2*n+1]of integer;
    i,j,border,num:integer;
begin
i:=1;
j:=1;
border:=1;
num:=1;
i:=j;
j:=n;
    A[i,j]:=num;
    while(border<=n) do 
begin
while(i<>n-border and ((i<>n-border)or(j<>n+border)) ) do
begin
i:=i-1;
num:=num+1;
A[i,j]:=num;
end;
while(j<>n-border and ((i<>n-border) or (j<>n+border))) do
begin
j:=j-1;
num:=num+1;
A[i,j]:=num;
end;
while(i<>n+border and ((i<>n-border)or(j<>n+border)) ) do
begin
i:=i+1;
num:=num+1;
A[i,j]:=num;
end;
while(j<>n+border and ((i<>n-border)or(j<>n+border)) )do 
begin
j:=j+1;
num:=num+1;
A[i,j]:=num;
end;
if(i=n-border and j=n+border) then
            border:=border+1;
end;
for i:= 0 to 2*n+1 do
begin
for j:= 0 to n*n+1 do
write(A[i,j]:3);
writeln;
end
end.

uses crt;
const m=2;
var a:array[1..2*m+1,1..2*m+1]of integer;
    n,x,y,k,z:integer;
begin
n:=m;
x:=n+1;
y:=n+1;
n:=2*n+1;
k:=0;
for z:=1 to n*n do
 begin
  a[x,y]:=z-1;
  case k mod 4 of
  0:begin
     dec(x);{вверх}
     if y=n-x then inc(k);
    end;
  1:begin
     dec(y);{влево}
     if y=x then inc(k);
    end;
  2:begin
     inc(x);{вниз}
     if y=n-x+1 then inc (k);
    end;
  3:begin
     inc(y);{вправо}
     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;
end.