Создайте соответствующий интерфейс и напишите программу

p:=1;
For i:=0 to n-1 do //n - размер массива
p:=p*a[i];

min:=arr[1]; indexmin:=1;//какое нибудь число из массива и его индекс
For i:=0 to n-1 do 
if a[i]<min then begin min:=a[i]; indexmin:=i; end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    Splitter1: TSplitter;
    StringGrid1: TStringGrid;
    GroupBox3: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    GroupBox4: TGroupBox;
    Memo1: TMemo;
    procedure FormResize(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a1:array of integer;
  a2:array of array of integer;
  i,j,n,m,max,min:Integer;
  p:Extended;
  mass:Boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormResize(Sender: TObject);
begin
GroupBox4.Width := Form1.Width - 585;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
mass := RadioButton1.Checked; //одномерный или двумерный
try
    m := StrToInt(Edit1.Text); // столбцы
    if mass then n := 0 else n := StrToInt(Edit2.Text); // строки (для двумерной)
    if (n<0) or (m<0) then p := n / (n-ABS(n)); // чтобы вызват ошибку и перейти в except
    except
    MessageDlg('Какую чушь вы несете?',mtError, [mbOK], 0);
    Exit;
    end;
 
p := 1;
StringGrid1.ColCount := m;
if mass then BEGIN // если одномерный массив, то
   SetLength(a1,m); // задать размерность массива а1
   randomize;
   for i := 0 to m-1 do Begin
       a1[i] := random(256)-128;
       p := p * a1[i];
       StringGrid1.Cells[i,0] := IntToStr(a1[i]);
       End;
   exit; //выход из процедуры
   END;
 
// если двумерный массив
StringGrid1.RowCount := n;
SetLength(a2,n,m);   // задать размерность массива а2
randomize;
for i := 0 to n-1 do
for j := 0 to m-1 do Begin
    a2[i,j] := random(256)-128;
    p := p * a2[i,j];
    StringGrid1.Cells[j,i] := IntToStr(a2[i,j]);
    End;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if (n<1) and (m<1) then exit; // если кнопку "Задать" не нажимали
if mass then BEGIN // если массив одномерный, то
   min := a1[0];
   max := a1[0];
   for i := 0 to m-1 do Begin   // поиск минимального и максимального
       if a1[i] > max then max := a1[i];
       if a1[i] < min then min := a1[i];
       End;
 
   //если расставлены соответствующие галочки
   if CheckBox1.Checked then Memo1.Lines.Add('Произведение элементов = ' + FloatToStr(p));
   if CheckBox2.Checked then Memo1.Lines.Add('Средне-геометрическое значение элементов:' + FloatToStr(p/m));
   if CheckBox3.Checked then Begin
       Memo1.Lines.Add('Минимальный элемент ' + IntToStr(min) + ' в индексах:');
       for i := 0 to m-1 do if a1[i] = min then Memo1.Lines.Add(IntToStr(i));
       End;
   if CheckBox4.Checked then Begin
       Memo1.Lines.Add('Максимальный элемент ' + IntToStr(max) + ' в индексах:');
       for i := 0 to m-1 do if a1[i] = max then Memo1.Lines.Add(IntToStr(i));
       End;
 
   Exit; // выход
   END;
 
// если двумерный
min := a2[0,0];
max := a2[0,0];
for i := 0 to n-1 do         // поиск минимального и максимального
for j := 0 to m-1 do Begin
    if a2[i,j] > max then max := a2[i,j];
    if a2[i,j] < min then min := a2[i,j];
    End;
 
//если расставлены соответствующие галочки
if CheckBox1.Checked then Memo1.Lines.Add('Произведение элементов = ' + FloatToStr(p));
if CheckBox2.Checked then Memo1.Lines.Add('Средне-геометрическое значение элементов:' + FloatToStr(p/(n*m)));
if CheckBox3.Checked then Begin
   Memo1.Lines.Add('Минимальный элемент ' + IntToStr(min) + ' в индексах:');
   for i := 0 to n-1 do
   for j := 0 to m-1 do
   if a2[i,j] = min then Memo1.Lines.Add(IntToStr(i) + ',' + IntToStr(j));
   End;
   if CheckBox4.Checked then Begin
      Memo1.Lines.Add('Максимальный элемент ' + IntToStr(max) + ' в индексах:');
      for i := 0 to n-1 do
      for j := 0 to m-1 do
      if a2[i,j] = max then Memo1.Lines.Add(IntToStr(i) + ',' + IntToStr(j));
      End;
end;
 
end.