Вычислить произведение элементов массива, размещенных после максимального по модулю элемента - PascalABC.NET

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

в одномерном массиве, который состоит из n действительных элементов, вычислить произведение элементов, размещенных после максимального по модулю элемента.

                    Листинг программы
                
 
                        
                          
                    
program pr_4_1;
uses CRT;
var
x:integer;
a:array[1..100] of integer;
otv:real;
max:integer;
i,j,n,v,k:integer;
begin
clrscr;
repeat
n:=n+1;
otv:=1;
{k:=-1;}
writeln('Введите длину массива: ');
readln(x);
 
for i:=1 to x do
   begin
   writeln('Введите a[',i,']:');
   readln(a[i]);
   max:=a[1];
   end;
for i:=1 to x do
   begin
   if a[i]>max then k:=i;
   end;
 
writeln('Номер запуска: ',n);
writeln('Массив: ');
for i:=1 to x do
    write(a[i],'  ');
 
if {(k<>-1)}k<x then
begin
for i:=k+1 to x do
  otv:=otv*a[i];
writeln('Результат: ',otv:8:2);
end
else
begin
writeln('Невозможно вычислить!');
end;
writeln('Хотите продолжать? (1-да, 0-нет)');
readln(v);
until v=0;
end.

выводит неправильный результат или "невозможно вычислить"

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

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

for i:=1 to x do
begin
   writeln('Введите a[',i,']:');
   readln(a[i]);
end;
k:=1;
for i:=1 to x do
begin
   if a[i]>a[k] then k:=i;
end;
// теперь в k - индекс максимального элемента

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

Программа запрашивает у пользователя ввод элементов массива a с помощью цикла for и функции readln.
Затем программа находит индекс элемента с максимальным абсолютным значением с помощью цикла for и условного оператора if.
Значение переменной k присваивается единице перед началом второго цикла.
Если элемент a[i] больше элемента a[k], то значение переменной k присваивается i.
В результате выполнения программы, в переменной k будет храниться индекс элемента с максимальным абсолютным значением.