[lmikle]

А если подумать?
Отличий от поиска максимального элемента массива практически нет.

Код:

procedure GetMaxMul(A : Array Of Integer; var Mul, Idx : Integer);
var
  I : Integer;
begin
  Mul := 0;
  Idx := 0;
  For I := Low(A) To High(A) - 1 Do
    If A[i] * A[I+1] > Mul Then
      begin
        Mul := A[i] * A[I+1];
        Idx := I;
      end;
end;

параметры:
A : [входной] массив целых чисел
Mul : [выходной] макс. произведение
Idx : [выходной] индекс первого числа в паре макс. произведения (byltrc второuj = Idx + 1)