Дана матрица размера m<n продублировать строку содержащую максимальный элемент матрицы

{ TForm1 }
//создание матрицы
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
m:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
setlength(a,m+1,n);
with stringgrid1 do
 begin
   fixedrows:=0;
   fixedcols:=0;
   rowcount:=m;
   colcount:=n;
   defaultcolwidth:=30;
  end;
with stringgrid2 do
 begin
   fixedrows:=0;
   fixedcols:=0;
   rowcount:=m+1;
   colcount:=n;
   defaultcolwidth:=30;
  end;
randomize;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
   a[i,j]:=10+random(90);
   stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
 end;
 
end;
//нахождение максимального и дублирование строки
procedure TForm1.Button2Click(Sender: TObject);
var i,j,imx,mx:integer;
begin
imx:=0;
mx:=a[0,0];
for i:=0 to m-1 do
for j:=0 to n-1 do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  imx:=i;
 end;
Label1.caption:='Максимальный элемент='+inttostr(mx)+' в строке '+inttostr(imx+1);
m:=m+1;
for i:=m-1 downto imx+1 do
for j:=0 to n-1 do
a[i,j]:=a[i-1,j];
for j:=0 to n-1 do
a[imx,j]:=a[imx+1,j];
for i:=0 to m-1 do
for j:=0 to n-1 do
stringgrid2.Cells[j,i]:=inttostr(a[i,j]);
 
end;