Найти столбец матрицы, в котором находится минимальный элемент

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
     m,n,i,j,mn,jmn:integer;
begin
randomize;
m:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
Stringgrid1.Rowcount:=m;
Stringgrid1.Colcount:=n;
Stringgrid2.Rowcount:=m;
Stringgrid2.Colcount:=1;
setlength(a,m,n);
for i:=0 to m-1 do //нет фиксированных строк и столбцов
for j:=0 to n-1 do
 begin
  a[i,j]:=-10+random(30);
  Stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
 end;
mn:=a[0,0];
jmn:=0;
for i:=0 to m-1 do
for j:=0 to n-1 do
if a[i,j]<mn then
 begin
   mn:=a[i,j];
   jmn:=j
  end;
Edit3.Text:='Минимальный элемент='+inttostr(mn)+' в столбце '+inttostr(jmn+1);
for i:=0 to m-1 do
Stringgrid2.Cells[0,i]:=inttostr(a[i,jmn]);
end;