Задан целочисленный массив Вставить столбец из нулей перед столбцом, содержащим минимальный элемент матрицы

  min := mas1[1,1];
  for i := 1 to n do
    for j := 1 to m do
      if mas1[i, j] < min then min := mas1[i, j];

var
  Form1: TForm1;
  a: array of array of integer;
  n,m,jmn:byte;//размеры матрицы и номер столбца с мин.
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
    mn:integer;
begin
Randomize;
n:=Strtoint(edit1.Text);
m:=Strtoint(edit2.Text);
Setlength(a,n,m+1);//под столбцы выделим места на 1 больше, будем вставлять
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=random(50)+1;//без нолей
mn:=a[0,0];
jmn:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]<mn then
 begin
  mn:=a[i,j]; //найдем значение мin
  jmn:=j; //номер первого столбца
 end;
Edit3.Text:='Минимальный элемент='+Inttostr(mn)+
            ' в столбце '+Inttostr(jmn+1);
Stringgrid1.rowcount:=n;
stringgrid1.colcount:=m;
with stringgrid1 do
for i:=0 to n-1 do
for j:=0 to m-1 do
cells[j,i]:=inttostr(a[i,j]);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:byte;
begin
Stringgrid2.rowcount:=n;
Stringgrid2.colcount:=m+1;
for i:=0 to n-1 do
for k:=m downto jmn+1 do//сдвигаем столбцы на 1 вправо начиная со следующего
a[i,k]:=a[i,k-1];
for i:=0 to n-1 do
a[i,jmn]:=0; //на освободившееся место пишем ноли
with stringgrid2 do
for i:=0 to n-1 do
for j:=0 to m do
cells[j,i]:=inttostr(a[i,j]);
end;

var
i,j :integer;
begin
 for i:=1 to stringgird1.rowcount-1 do
 stringgird1.cell[0,i]:=inttostr(i);
 
 for j:=1 to stringgird1.colcount-1 do
 stringgird1.cell[j,0]:=inttostr(j);
 
end;