begin
  writeln('1  2  3  4);
  writeln('12 13 14 5);
  writeln('11 16 15 6);
  writeln('10 9  8  7);
end.

上面是开一个小玩笑;
program e2;
const
   w:array[1..4,1..2]of integer
    =((1,0),(0,-1),(-1,0),(0,1));
var
   a:array [0..20,0..20]of integer;
   n,l,t,i,j,x,y,p:integer;
begin
  repeat
    readln(n);
  until (n<20) and (n>1);
  p:=2;
  if n>3 then p:=p+1;
  if n>9 then p:=p+1;
  l:=1;
  x:=1;y:=n;
  t:=1;
  for i:=1 to n do begin
    a[0,i]:=-1;
    a[i,0]:=-1;
    a[i,n+1]:=-1;
    a[n+1,i]:=-1;
  end;
  repeat
    a[x,y]:=l;
    l:=l+1;
    if a[x+w[t,1],y+w[t,2]]<>0 then t:=t+1;
    if t=5 then t:=1;
    x:=x+w[t,1];
    y:=y+w[t,2];
  until l>n*n;
  for i:=1 to n do begin
   for j:=1 to n do
     write(a[j,n-i+1]:p);
   writeln;
   writeln;
  end;
  readln;
end.
{n是矩阵的宽}

program e2;
const
   w:array[1..4,1..2]of integer
    =((1,0),(0,-1),(-1,0),(0,1));
var
   a:array [0..20,0..20]of integer;
   n,l,t,i,j,x,y,p:integer;
begin
  repeat
    readln(n);
  until (n<20) and (n>1);
  p:=2;
  if n>3 then p:=p+1;
  if n>9 then p:=p+1;
  l:=1;
  x:=1;y:=n;
  t:=1;
  for i:=1 to n do begin
    a[0,i]:=-1;
    a[i,0]:=-1;
    a[i,n+1]:=-1;
    a[n+1,i]:=-1;
  end;
  repeat
    a[x,y]:=l;
    l:=l+1;
    if a[x+w[t,1],y+w[t,2]]<>0 then t:=t+1;
    if t=5 then t:=1;
    x:=x+w[t,1];
    y:=y+w[t,2];
  until l>n*n;
  for i:=1 to n do begin
   for j:=1 to n do
     write(a[j,n-i+1]:p);
   writeln;
   writeln;
  end;
  readln;
end

你的程序错了！（不过是小问题，）但是在程序里是运行不了的！请检查一下。

program xiti;
const n=10;
var h:array[0..n+1,0..n+1] of integer;
    x,y,u,v,i,j,k:integer;
begin
  for i:=0 to n+1 do
  for j:=0 to n+1 do
  if (i>=1)and(i<=n)and(j>=1)and(j<=n)
  then
  h[i,j]:=0
  else h[i,j]:=1;
  x:=1; y:=1; i:=0;k:=1;
  h[x,y]:=k;
  u:=1; v:=2;
  repeat
  while (h[u,v]=0) do
    begin k:=k+1; x:=u; y:=v; h[x,y]:=k;
    case i of
    0:v:=y+1;
    1:u:=x+1;
    2:v:=v-1;
    3:u:=u-1;
    end;
  end;
  case i of
  0:u:=u+1;
  1:u:=u-1;
  2:u:=u-1;
  3:u:=u+1;
  end;
  case i of
  0:v:=v-1;
  1:v:=v-1;
  2:v:=v+1;
  3:v:=v+1;
  end;
  i:=(i+1) mod 4;
  until k=n*n;
  for i:=1 to n do
  begin
  for j:=1 to n do
  write(h[i,j]:3);
  writeln;
  end;
readln;
end.

简单题目，纯粹找规律！！

用二维数组，来的更容易！呵呵