[DWanek]

Как вариант так:

//в примере элементы матрицы целочисленные
var
  M : array[0..X, 0..Y] of Integer; //Матрица размером X на Y (не знаю, как там у вас)
  N : array[0..X] of Integer; //Список значений произведений
  Min : Integer; //Требуемый номер строки
  MinValue : Integer; //Минимальное значение
  I, J : Integer;
begin
  //Считаем произведения
  for I := 0 to X do
    begin
      N[I] := 1;
      for J := 0 to Y do
        N[I] := N[I] * M[I, J];
    end;
  //Находим минимальное значение
  MinValue := N[0];
  Min := 0;
  for I := 1 to X do
    if N[I] < MinValue then
      begin
        MinValue := N[I];
        Min := I;
      end;
  //Выводим
  WriteLn(Min);
end;