Массив: Заполнить квадратную матрицу порядка n, записывая элементы в нее по спирали против часовой стрелки

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    n,i:integer;
    x,y,number,add,direction:integer;
begin
//вводим n например от 3 до 10
if not TryStrToInt(Edit1.Text,n)or not(n in [3..20]) then
 begin
  Showmessage('Неверно введен размер');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
SetLength(a,n,n);
//Заполняем матрицу спиралью из ячейки [0,0] против часовой стрелки
x:=0; //столбец
y:=-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;
    a[y,x]:=number;
    number:=number+1;
    i:=i+1;
   end;
  i:=0;
  Add:=Add-1;
  while (i<>Add) do
   begin
    x:=x+direction;
    a[y,x]:=number;
    number:=number+1;
    i:=i+1;
   end;
 direction:=-direction;
end;
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
for y:=0 to n-1 do
for x:=0 to n-1 do
StringGrid1.Cells[x,y]:=inttostr(a[y,x]);
end;
end.

if not TryStrToInt(Edit1.Text,n)or not(n in [3..20]) then