Спиральное отображение массива....

[enot27]

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

[CrazyRabbit]

var a:array[1..100,1..100]of integer;
 i,j,n,l1,k,l:longint;
  begin
  read(n);
    l:=sqr(n);
     l1:=0;
      k:=1;

      while k<>l do
       begin

	if k<>l then
	 begin
	  for i:=1+l1 to 1+l1 do
	   for j:=1+l1 to n-l1 do
	    begin

	     a[i,j]:=k;
	      inc(k);
	    end;
	  end;

	  if k<>l then
	   begin
	    for i:=2+l1 to n-l1 do
	     for j:=n-l1 to n-l1 do
	      begin
	       a[i,j]:=k;
		inc(k);
	      end;
	    end;

	    if k<>l then
	     begin
	      for i:=n-l1 downto n-l1 do
	       for j:=n-l1-1 downto 1+l1 do
		begin
		 a[i,j]:=k;
		  inc(k);
		end;
	     end;

	     if k<>l then
	      begin
	       for i:=n-l1-1 downto 1+l1+1 do
		for j:=1+l1 downto 1+l1 do
		 begin
		  a[i,j]:=k;
		   inc(k);
		 end;
	      end;
	      inc(l1);
	  end;


	     for i:=n div 2 to n div 2 +2do

	      for j:=n div 2 to n div 2+2 do
	       if a[i,j]=0 then
		a[i,j]:=k;

		 for i:=1 to n do
	    begin
	     for j:=1 to n do
	      write(a[i,j],' ');
	       writeln;
	    end;
 end.

этот код для любого n, если че, заменишь.

[enot27]

вот спасибо!!!Что бы я без тебя делал??СПАСИБО ОГРАМЕННОЕ!!