Дана матрица y(n*m)

procedure TForm1.FormCreate(Sender: TObject);
var a: array[1..6] of integer; i: integer;
begin
StringGrid1.Cells[0,0]:=' variant#22';
StringGrid1.Cells[0,1]:='a';
StringGrid1.Cells[0,2]:='b';
 
{with StringGrid1 do
begin
for i:=1 to 6 do begin Cols[0].Add(inttostr(i));
end;
end;}
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a,b: array[1..6] of integer; i: integer;
begin
randomize;
for i:=1 to 6 do begin
a[i]:=random(10);
b[i]:=random(10); 
end;
 
for i:=1 to 6 do begin
StringGrid1.Cells[i,1]:=formatfloat('0', a[i]);
StringGrid1.Cells[i,2]:=formatfloat('0', b[i]);
end;
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var m,n,i,j,imn:integer;
    y:array of array of real;
    min,p:real;
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=40;
  colcount:=m;
  rowcount:=n;
 end;
setlength(y,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  y[i,j]:=1+5*random;
  StringGrid1.Cells[j,i]:=formatfloat('0.00',y[i,j]);
 end;
imn:=-1;
min:=0;
for i:=0 to n-1 do
 begin
  p:=1;
  for j:=0 to m-1 do
  p:=p*y[i,j];
  if i=0 then
   begin
    min:=p;
    imn:=i;
   end
  else if p<min then
   begin
    min:=p;
    imn:=i;
   end;
 end;
Label1.Caption:=
'Номер строки с минимальным произведением='+inttostr(imn+1)+' призведение='+formatfloat('0.00',min);
end;