Вставить после каждого столбца, начиная со второго, первый столбец

var
  Form3: TForm3;
   n,m: integer;
   a: array [0..10,0..10] of integer;
implementation
 
{$R *.dfm}
 
 
 
procedure TForm3.Button1Click(Sender: TObject);
var
i,j: integer;
begin
Randomize;
n:=strtoint(Edit1.Text);
m:=strtoint(Edit2.Text);
for i:=0 to n-1 do
 for j:=0 to m-1 do
  a[i,j]:=Round(Sin(Random(100))*100);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
with StringGrid1 do
begin
 i:=0;
 for j:=1 to RowCount do
  Cells[i,j]:=IntToStr(j);
 j:=0;
 for i:=1 to ColCount do
   Cells[i,j]:=IntToStr(i);
end;
with StringGrid1 do
 for i:=1 to n do
  for j:=1 to m do
   Cells[j,i]:=IntToStr(a[i-1,j-1]);
end;
 
procedure TForm3.Button2Click(Sender: TObject);
var i,j,k: integer;
begin
 for j:=m downto 3 do
  for i:=1 to n do
  begin
     a[i,j*2-2]:=a[i,j];
     a[i,j*2-1]:=a[1,j];
  end;
with StringGrid2 do
 begin
  StringGrid2.RowCount:=n+1;
  StringGrid2.ColCount:=m+1;
  for i:=1 to RowCount do
  Cells[0,i]:=IntToStr(i);
  for i:=1 to ColCount do
  Cells[i,0]:=IntToStr(i);
  for i:=1 to n do
  for j:=1 to m do
  Cells[j,i]:=IntToStr(a[i-1,j-1]);
 end;
 end;
end.

var a:array of array of integer;
     m,n,i,j,k:integerl
begin
...............................
setlength(a,m,n);

j:=2;//начнем с 3 столбца(индекс=2)
while j<=n do//пока не выйдем за пределы матрицы по ширине
 begin
  inc(n);//увеличиваем кол. столбцов на 1
  setlength(a,m,n);//выделяем память
  for k:=n-1 downto j do//сдвигаем столбцы на 1 вправо
  for i:=0 to m-1 do
  a[i,k]:=a[i,k-1];
  for i:=0 to m-1 do//на освободившееся место вставляем элементы 1 столбца
  a[i,j]:=a[i,0];
  j:=j+2;//перешагиваем через столбец
 end;