Вставить столбец из 0 после всех столбцов, в которых содержится максимум матрицы

procedure TForm4.Button1Click(Sender: TObject);          // Создаем массив

a[i,j]:=RandomRange(-20,50);

procedure TForm4.Button2Click(Sender: TObject);

max:=a[1,1] ;

max:=a[0,0] ;
  for I:=0 to n-1 do
         for J:=0 to m-1 do
         if a[i,j]>max then max:= a[i,j];
         edit3.Text:=inttostr(max);// Вывели максимальный элемент (просто чтобы знать)
 
         for I:=0 to n-1 do   begin
         for J:=0 to m-1 do   begin
            if a[i,j]=max then begin // равен ли элемента максимумальному
                       d:=j; //запоминаем столбец
                       stringgrid1.colcount:= stringgrid1.colcount+1;
                      m:= stringgrid1.colcount; //увеличили количество стобцов в матрице
                      for i:=n-1 downto 0 do
                       for Q:=m-1 downto d+1 do
                       a[i,q]:=a[i,q-1];//перемещаем все элементы столбца на позицию вправо
                       for i:=0 to n-1 do  // обнуляем столбец, стоящей после столбца с максимальным значением
                       a[i,d+1]:=0;
 
         end;
 
         end;
         end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
  randomize;
  max:=0;
  for I:=0 to sg.ColCount-1 do
  for j:=0 to sg.RowCount-1 do
    begin
      sg.Cells[i,j]:=inttostr(random(50));
      if max<strtoint(sg.Cells[i,j]) then max:=strtoint(sg.Cells[i,j]);
    end;
end;

Procedure GridAddColumn(StrGrid: TStringGrid; NewColumn: Integer);
Var Column,i: Integer;
begin
  StrGrid.ColCount := StrGrid.ColCount+1;
  For Column := StrGrid.ColCount-1 downto NewColumn do 
    StrGrid.Cols[Column].Assign(StrGrid.Cols[Column-1]);
  for I := 0 to StrGrid.RowCount-1 do StrGrid.Cells[NewColumn-1,i]:='0';
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
  for I:=0 to sg.ColCount-1 do
  for j:=0 to sg.RowCount-1 do
    begin
      if strtoint(sg.Cells[i,j])=max then
      begin
        GridAddColumn(sg,i+2);
      end;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,mx,k,d:integer;
begin
mx:=a[0,0];
for i:=0 to m-1 do
for j:=0 to n-1 do
if a[i,j]>mx then mx:=a[i,j];
d:=1;
for j:=0 to n-1 do
 begin
  k:=0;
  i:=0;
  while(i<m)and(k=0) do
  if a[i,j]=mx then k:=1
  else inc(i);
  if k=1 then
   begin
    inc(d);
    StringGrid1.ColCount:=StringGrid1.ColCount+1;
    for i:=StringGrid1.ColCount-1 downto j+d do
    StringGrid1.Cols[i].Text:=StringGrid1.Cols[i-1].Text;
    StringGrid1.Cols[j+d-1].Clear;
   end;
 end;
Edit3.Text:='Максимальный = '+IntToStr(mx);
end;