Двумерный массив Вставка столбца - Delphi - Ответ 9112063

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, min, k, f, jmn:integer;
begin
Edit3.Text:=' ';
min := A[0, 0];
   begin
    for j := 0 to m - 1 do
        for i := 0 to n - 1 do
   if A[i,j]<min then min:=A[i,j];
      jmn:=j;                            // нахождение и запоминание
 
Edit3.Text:=Edit3.Text+Inttostr(min)+' ';;
end;
end;
procedure TForm3.Button3Click(Sender: TObject);
Var i, j, k, min, jmn: integer;
  begin
  begin
    min := A[0, 0];
   begin
    for j := 0 to m - 1 do
 
        for i := 0 to n - 1 do
   if A[i,j]<min then
   begin
   min:=A[i,j];
      jmn:=j;
   end;
  end;
 
   begin
for i:=0 to n-1 do
for k:=m downto jmn+1 do      //сдвигание столбцов
a[i,k]:=a[i,k-1];
for i:=0 to n-1 do
a[i,jmn]:=A[i,1];
   end;
     Stringgrid2.rowcount:=n;
     Stringgrid2.colcount:=m+1;
with stringgrid2 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 stringgrid2 do
 
for i:=0 to n do
for j:=0 to m do
cells[j,i]:=inttostr(a[i,j]);