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

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

Произведение элементов массива,расположенных между минимальным и максимальным по модулю элементами(первым,если их несколько).

Решение задачи: «Найти произведение элементов массива, расположенных между минимальным и максимальным по модулю элементами»

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

var
i,n,b,c,max:integer;
a:array[1..100] of real;
begin
c:=1;
readln(n);
for i:=1 to n do readln(a[i]);
max:=abs(a[i]);
for i:=1 to n do
if a[i]>max then
begin 
b:=i;
max:=abs(a[i]);
end;
for i:=1 to b do
c:=c*a[i];
writeln(c);
end.

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

В начале объявляются переменные: i, n, b, c, max - они будут использоваться для выполнения программы.
Переменная c инициализируется значением 1.
Считывается значение переменной n с помощью функции readln().
Для каждого элемента массива a (от 1 до 100), считывается значение с помощью функции readln().
Переменная max инициализируется абсолютным значением максимального элемента массива a.
Запускается цикл for, который будет выполняться столько раз, сколько элементов в массиве a.
Внутри цикла проверяется, является ли текущий элемент a[i] больше текущего значения переменной max. Если это так, то присваивается значение переменной b и max обновляется.
После завершения внутреннего цикла, запускается внешний цикл for, который будет выполняться столько раз, сколько элементов в массиве a.
Внутри внешнего цикла умножается значение переменной c на текущий элемент a[i].
По завершению внешнего цикла, значение переменной c выводится на экран с помощью функции writeln().