Max и Min елементы

Program prl;
Uses crt;
Var
   a:array [1..10] of integer;
   max,min,n,i:integer; 
begin 
clrscr;
max:=a[1];
min:=a[1];
writeln ('Введите количество элементов'); 
readln (n); 
for i:=1 to n do 
  begin
    writeln ('Введите массив'); 
    readln (a[i]); 
  end;
for i:=1 to n do 
  begin
    if a[i]>max then max:=a[i]; 
    if a[i]<min then min:=a[i];
    Вычислить произведения елементов расположеных между max и min
  end;
writeln ('произведение');
end.

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,p,temp,temp1,temp2,max,min:integer;
{ôóíêöèÿ ïîèñêà ìàêñèìóìà двух чисел}
function fMax(a,b:integer):integer;
begin
  if a>b then
    fMax:=a
  else
    fMax:=b
end;
{ôóíêöèÿ ïîèñêà ìèíèìóìà двух чисел}
function fMin(a,b:integer):integer;
begin
  if a<b then
    fMin:=a
  else
    fMin:=b
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i]:2,' ')
  end;
  writeln(']');
  {íàõîäèì ìàêñèìóì è ìèíèìóì}
  max:=a[1];
  min:=max;
  temp1:=1;
  temp2:=1;
  for i:=1 to n do
  begin
    if a[i]>max then
    begin
      max:=a[i];
      temp1:=i
    end;
    if a[i]<min then
    begin
      min:=a[i];
      temp2:=i
    end
  end;
  writeln('Ìàêñèìàëüíûé ýëåìåíò: a[',temp1,']=',max);
  writeln('Ìèíèìàëüíûé ýëåìåíò:  a[',temp2,']=',min);
  p:=1;
  if abs(temp1-temp2)>1 then
  begin
    for i:=fMin(temp1,temp2)+1 to fMax(temp1,temp2)-1 do
      p:=p*a[i];
    writeln('Ïðîèçâåäåíèå: ',p)
  end
  else
    writeln('Ìåæäó íèìè íåò ýëåìåíòîâ!')
end.