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

program Project1;
 
const
  maxelem = 10;
var
  a: array[1..maxelem] of integer; { Переменная для хранения массива}
  n: integer; { Переменная для хранения значения количества элементов}
  left,right: integer; { Переменные для хранения значений левой и правой границ генератора случайных чисел}
  i: integer; { Вспомогательная переменная для организации циклов}
  maxmult: integer; { Переменная для хранения значения максимального произведения}
  maxind: integer;  { Переменная для хранения значения индекса одного из элементов}
begin
  Randomize;
  left:= 0;
  right:= 1000;
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);
    if (n < 1) or (n > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  writeln('Исходный массив:');
  for i:= 1 to n do
    begin
      a[i]:= left + random(right - left + 1); {Заполнение массива случайными числами}
      write(a[i]:5);         {Вывод элементов массива в консоль}
    end;
  maxmult:= -2147483647;
  maxind:= 1;
  for i:= 2 to n do
    if a[i-1]*a[i] > maxmult then  {Условие для поиска максимального произведения из двух элементов}
      begin
        maxmult:= a[i-1]*a[i];   { нахождение максимального произведения и индекса одного элемента}
        maxind:= i;
      end;
  writeln;
  writeln('Номера соседних элементов с наибольшим произведением: ', maxind-1,', ',maxind);
 
  readln;
end.