Найти сумму и количество элементов, расположенных между минимальным и максимальным элементами массива. Сумму и количество искать не включая минимальный и максимальный элемент- Pascal(Паскаль)

Program mas;

uses crt;

var
  a: array [1 .. 1000] of integer;

  i, n, max, maxi, min, mini, s: integer;

begin

  clrscr;

  write('количество элементов  n=');

  readln(n);

  for i := 1 to n do

  begin

    write('a[', i, ']=');
    readln(a[i]);

  end;

  max := a[1];
  maxi := 1;
  for i := 2 to n do

    if a[i] > max then

    begin

      max := a[i];
      maxi := i;

    end;
  writeln('max=', max, ' index ', maxi);
  min := a[1];
  mini := 1;

  for i := 2 to n do

    if a[i] < min then

    begin

      min := a[i];
      mini := i;
    end;
  writeln('min=', min, ' index ', mini);
  s := 0;
  if maxi > mini then
    for i := mini to maxi do
      s := s + a[i];
  writeln('summa=', s);
  if maxi < mini then
    for i := maxi to mini do
      s := s + a[i];
  writeln('summa=', s);

end.