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

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//заготовка таблицы
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=30;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,k:integer;
begin
//очистка таблицы
with StringGrid1 do
for i:=0 to ColCount-1 do
Cols[i].Clear;
//проверка ввода размера, при запущенной программе можно
//менять размер
val(Edit1.Text,n,k);
if(k<>0)or not(n in [2..15]) then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
with StringGrid1 do
 begin
  colcount:=n;
  rowcount:=n;
 end;
k:=0;
for i:=n downto 1 do
if odd(n-i+1) then
for j:=1 to n do
 begin
  inc(k);
  StringGrid1.Cells[j-1,i-1]:=inttostr(k);
 end
else
 for j:=n downto 1 do
  begin
   inc(k);
   a[i,j]:=k;
   StringGrid1.Cells[j-1,i-1]:=inttostr(k);
  end;
 end;
end.

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
    x,y,number,add,direction:integer;
begin
val(Edit1.Text,n,i);//на картинке n=9
if(i<>0)or not(n in [2..10]) then
 begin
  Showmessage('Неверно введен размер');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
{ЗАПОЛНЯЕМ ТАБЛИЦУ СПИРАЛЬКОЙ СНИЗУ СПРАВА ВВЕРХ}
x:=n; //столбец
y:=n+1; //строка
number:=1;//число в ячейке
Add:=n; //текущая длина пути от n до 1
direction:=-1;//направление движения 1-вправо и вниз
              //-1 влево и вверх
while add<>0 do
 begin
  i:=0;
  while i<>Add do
   begin
    y:=y+direction;
    StringGrid1.Cells[x-1,y-1]:=inttostr(number);
    number:=number+1;
    i:=i+1;
   end;
  i:=0;
  Add:=Add-1;
  while (i<>Add) do
   begin
    x:=x+direction;
    StringGrid1.Cells[x-1,y-1]:=inttostr(number);
    number:=number+1;
    i:=i+1;
   end;
 direction:=direction*(-1);
end;
end;