В одномерном массиве. Найти произведение элементов, расположенных между макс по модулю и мин по модулю значениямми

const
  n=10;
var
  mas:array[1..n]of integer;
  j,c,t,p,mn,mx,max,min,i:integer;
begin
  randomize;
  Writeln('Начальный массив');
  for i:=1 to n do
  begin
  mas[i]:=random(21)-10;
  write(mas[i],' ');
  end;
 
 
  max:=mas[1];
  min:=mas[1];
  mx:=1;
  mn:=1;
  for i:=1 to n do
  begin
  if abs(max)<abs(mas[i]) then
  begin
   max:=mas[i];
   mx:=i;
  end;
  if abs(min)>abs(mas[i]) then
  begin
   min:=mas[i];
   mn:=i;
  end;
  end;
 
  p:=1;
  if mn<mx then
  for i:=mn+1 to mx-1 do
   p:=p*mas[i]
  else
  for i:=mx+1 to mn-1 do
   p:=p*mas[i];
 
  for i:=1 to n-1 do
  begin
  c:=i;
  for j := i + 1 to n do
  if mas[c] < mas[j] then
   c := j;
  if c<>i then
   begin
    t := mas[i];
    mas[i] := mas[c];
    mas[c] := t;
 
   end;
   end;
  Writeln;
  Writeln('Максимальный элемент',max);
  Writeln('Минимальный элемент',min);
  Writeln('Произведение элементов',p);
  Writeln('Отсортированый массив');
 
  for i:=1 to n do
  write(mas[i],' ');
 
 
readln;
end.