Вывести построчно элементы всех слоев прямоугольного массива, начиная с внешнего слоя

var
  Form1: TForm1;
  a: array of array of integer;
  m,n,ks: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth;
 end;
with StringGrid2 do
 begin
  fixedCols:=1;
  fixedRows:=0;
  defaultColwidth:=30;
  cells[0,0]:='Слой';
  scrollBars:=ssBoth;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим ввод размеров
val(Edit1.Text,m,i);
if (i<>0)or not(m in [2..20])then
 begin
  ShowMessage('Неверно введено количество строк');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,n,i);
if (i<>0)or not(n in [2..20])then
 begin
  ShowMessage('Неверно введено количество столбцов');
  Edit2.Clear;
  Edit1.SetFocus;
  exit
 end;
Setlength(a,m,n);
//определим количество слоев
if m<n then
 if odd(m) then ks:=m div 2+1 else ks:=m div 2
else
 if odd(n) then ks:=n div 2+1 else ks:=n div 2;
//создаем таблицы
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=ks+1;
StringGrid2.ColCount:=2*m+2*n-4+1;
//создаем матрицу
randomize;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=-20+random(31);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
end;
//выводим слои
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:integer;
begin
for i:=1 to ks do
 begin
  StringGrid2.Cells[0,i]:=inttostr(i);
  k:=0;
  for j:=i-1 to n-i do
   begin
    k:=k+1;
    StringGrid2.Cells[k,i]:=inttostr(a[i-1,j]);
   end;
  for j:=i to m-i do
   begin
    k:=k+1;
    StringGrid2.Cells[k,i]:=inttostr(a[j,n-i]);
   end;
  for j:=n-i-1 downto i-1 do
   begin
    k:=k+1;
    StringGrid2.Cells[k,i]:=inttostr(a[m-i,j]);
   end;
 for j:=m-i-1 downto i do
   begin
    k:=k+1;
    StringGrid2.Cells[k,i]:=inttostr(a[j,i-1]);
   end;
 end;
end;