Алгоритм поиска номера первого из двух последовательных элементов в целочисленном массиве из 10 элементов, произведение которых максимально - Pascal

Формулировка задачи:

Доброго времени суток. Помогите пожалуйста решить задачу. Условие: Опишите на языке программирования(Pascal) алгоритм поиска номера первого из двух последовательных элементов в целочисленном массиве из 10 элементов, произведение которых максимально.

program Find;
uses crt;
const
n=10;
w=5;
var
C:Array[1..w] of integer;
A:Array[1..n] of integer;
I,J,B,V,M,D:integer;
 
begin
clrscr;
 for I:=1 to n do
  begin
   write(' ',I,' число :');
   readln(d);
   A[i]:=d;
  end;
 writeln;
 for I:=1 to w do
  begin
   b:=i*2;
   v:=b-1;
    j:=b*v;
   C[i]:=j;
  end;
  begin
   m:=C[1];
   for I:=1 to w do
    if C[i] > m then
     M:=C[i];
     writeln('максимальное значение',m);
   end;
readln;
end.

Смог сделать только на поиск максимального произведения последовательных элементов. А как сделать на поиск номера не знаю

Решение задачи: «Алгоритм поиска номера первого из двух последовательных элементов в целочисленном массиве из 10 элементов, произведение которых максимально»

Листинг программы

Program C21;
 
uses Crt;
 
const n = 10;
 
var a : array[1..n] of integer; k, i, max : integer;
 
begin
 
     for i := 1 to n do begin
 
           write('vvedite ',i,' - iy element massiva - ');
 
           readln(a[i]);
     end;
              k := 1;
 
              max := a[1] * a[2];
 
     for i := 2 to n-1 do begin
 
     if (a[i] * a[i + 1]) > max then begin
 
              max := a[i] * a[i + 1];
 
              k := i;
     end;
     end;
              writeln(k);
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal и выполняет следующую задачу: находит номер первого из двух последовательных элементов в целочисленном массиве из 10 элементов, произведение которых максимально. В начале кода объявляются необходимые переменные: n - размер массива (в данном случае 10), a - сам массив, k - переменная для хранения номера первого максимального элемента, i - переменная для итерации по массиву, max - переменная для хранения текущего максимального произведения. Затем следует цикл, который проходит по каждому элементу массива. Внутри цикла выводится запрос на ввод текущего элемента массива, а затем значение этого элемента сохраняется в соответствующую переменную. После завершения внешнего цикла выполняется внутренний цикл. Он начинается со второго элемента массива и продолжается до предпоследнего. Внутри этого цикла проверяется, является ли произведение текущего и следующего элементов больше текущего максимального произведения. Если это так, то обновляется значение переменной max и переменной k, которая теперь хранит номер первого максимального элемента. После завершения внутреннего цикла выводится значение переменной k, которое и является ответом на задачу.