Свертка линейного массива по спирали в квадратную матрицу

Program O;
uses Crt;
const
   n = 7;
var
   i,j,k,l: integer;
   a: array[1..n, 1..n] of integer;
   b: array[1..n*n] of integer;
 
begin
   randomize;
   clrscr;
   for i:= 1 to n*n do begin
      b[i]:= -10 + Random(20);
      write(b[i]:4)
   end;
 
   k:= 1;
   for l:= 0 to 2 do begin
      for j:= 1+l to n-1-l do begin
         a[1+l,j]:= b[k];
         k:= k+1
      end;
 
      for i:= 1+l to n-1-l do begin
         a[i,n-l]:= b[k];
         k:= k+1
      end;
 
      for j:= n-l downto 2+l do begin
         a[n-l,j]:= b[k];
         k:= k+1
      end;
 
      for i:= n-l downto 2+l do begin
         a[i,1+l]:= b[k];
         k:= k+1
      end
   end;
   if n mod 2 = 1 then
      a[n div 2 + 1, n div 2 + 1]:= b[n*n];
 
   writeln;
   writeln;
 
   for i:= 1 to n do begin
      for j:= 1 to n do
         write(a[i,j]:4);
      writeln
   end;
end.