Задача на паскале

[juroy]

Помогите пожалуйста решить задачу:
Дано число n (4<b<20) надо сформировать двумерный массив, заполняя его спиралью по часовой стрелке. (Начинаешь с левого верхнего угла, заканчиваешь в центре). Массив заполняется числами от 1 до n*n (по возрастанию от левого верхнего угла xD). После чего надо удалить все строки и столбцы массива, в которых есть более 3х чисел, кратных n.
Сам уже все мозги сломал, но не знаю как сформировать массив спиралью...

[IT-man]

как сформировать массив спиралью...

uses crt;
var i,j,m,n,l,r : integer;
    tab         : array [1..50,1..50] of integer;
begin
  clrscr;
  write('n strok: ');  readln(m);
  write('n stolb : ');  readln(n);
  repeat
    inc(r);
    for i:=r   to n-r+1   do begin inc(l);tab[i,r]:=l     end;
    for i:=r+1 to m-r+1   do begin inc(l);tab[n-r+1,i]:=l end;
    for i:=n-r downto r   do begin inc(l);tab[i,m-r+1]:=l end;
    for i:=m-r downto r+1 do begin inc(l);tab[r,i]:=l     end;
  until l=m*n;
  for j:=1 to m do
  for i:=1 to n do
  begin
    write(tab[i,j]:4);
    if i=n then writeln;
  end;
  readln;
end.