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

const
  n=100;
var
  a: array [1..n] of real;
  p: real;
  n, i, imin, imax: integer;
begin
  Assign(input,'in.txt'); Assign(output,'out.txt');
  Reset(input); Rewrite(output);
  ReadLn(n); imin:=1; imax:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if a[i]<a[imin] then imin:=i;
    if a[i]>a[imax] then imax:=i;
  end;
  p:=1;
  if imin<imax then
    for imin+1 to imax-1 do p:=p*a[i]
  else 
    for imin+1 downto imax-1 do p:=p*a[i];
  if abs(imin-imax)<=1 then p:=0;
  WriteLn(p:0:3) ;
end.