Заполнить матрицу натуральными числами l.N*N, где N - размер матрицы

procedure TForm1.Button32Click(Sender: TObject);
VAR
i,j,n,cicle,count:Integer;
a:array of array of Integer;
begin
n := StrToInt(Edit1.Text);
SetLength(a, n, n);
StringGrid1.ColCount := n;
StringGrid1.RowCount := n;
count := 0;
cicle := 0;
 
for cicle := 0 to ((n-1) div 2) do BEGIN
//слева-направо
i := (n-1-cicle);
     for j := (0+cicle) to (n-1-cicle) do Begin
        inc(count);
        a[i,j] := count;
        StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
        End;
//снизу-вверх
j := (n-1-cicle);
     for i := (n-1-cicle-1) downto (0+cicle) do Begin
        inc(count);
        a[i,j] := count;
        StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
        End;
//справа-налево
i := (0+cicle);
     for j := (n-1-cicle-1) downto (0+cicle) do Begin
        inc(count);
        a[i,j] := count;
        StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
        End;
//сверху-вниз
j := (0+cicle);
     for i := (0+cicle+1) to (n-1-cicle-1) do Begin
     inc(count);
     a[i,j] := count;
     StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
     End;
 
END;
 
end;

procedure TForm1.Button17Click(Sender: TObject);
VAR
i,j,n,cicle,count:Integer;
a:array of array of Integer;
begin
n := StrToInt(Edit1.Text);
SetLength(a, n, n);
StringGrid1.ColCount := n;
StringGrid1.RowCount := n;
count := 0;
cicle := 0;
for i := (n-1) downto 0 do BEGIN
    if odd(cicle) then for j := 0 to n-1 do Begin
       inc(count);
       a[i,j] := count;
       StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
       End else for j := n-1 downto 0 do Begin
           inc(count);
           a[i,j] := count;
           StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
           End;
       inc(cicle);    
    END;
 
end;