Вычислить произведение элементов массива между первым максимальным и первым минимальным элементами

if imin<imax then
       begin
            nz:=imin+1;
            kz:=imax-1;
       end else
       begin
            nz:=imax+1;
            kz:=imin-1;
       end;

for i:=nz to kz do

Program sort;
uses crt;
var
   a: array [1..100] of integer;
   i, imin, imax, n, min, max, nz, kz, pr: integer;
begin
    writeln ('Введите количество элементов в массиве');
    readln (n);
    for i:=1 to n do
        begin
             writeln ('Введите ', i, ' элемент массива');
             read (a[i]);
        end;
    min:=a[1];
    max:=a[1];
    for i:=1 to n do
        begin
             if a[i]>max then
                begin
                     max:=a[i];
                     imax:=i;
                end;
             if a[i]<min then
                begin
                     min:=a[i];
                     imin:=i;
                end;
          end;
       if imin<imax then
       begin
            nz:=imin+1;
            kz:=imax-1;
       end else
       begin
            nz:=imax+1;
            kz:=imin-1;
       end;
       pr:=1;
       for i:=nz to kz do
       pr:=pr*a[i];
       write ('Произведение элементов, находящихся между ', nz-1,' и ', kz+1, ' элементами массива = ',pr);
end.

uses crt;

uses crt;