Найти наибольшее произведение двух элементов массива, указав их индексы - Pascal

Найти наибольшее произведение двух элементов массива, указав их индексы.

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

max:=a[1]*a[2];
i1:=1;
i2:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]*a[j]>max then
 begin
  max:=a[i]*a[j];
  i1:=i;
  i2;=j;
 end;

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

Устанавливается начальное значение максимального произведения двух элементов массива, равное произведению первого и второго элементов:
- max = a[1]*a[2]
Устанавливаются начальные значения индексов элементов массива, образующих максимальное произведение:
- i1 = 1
- i2 = 2
Начинается вложенный цикл от 1 до n-1 включительно (i - от 1 до n-1):
- Для каждого значения i выполняется вложенный цикл от i+1 до n включительно (j - от i+1 до n):
  - Если произведение a[i] и a[j] больше текущего максимального произведения:
  - Текущее максимальное произведение обновляется значением произведения a[i] и a[j]
  - Значения индексов элементов массива, образующих максимальное произведение, обновляются:
    - i1 = i
    - i2 = j