Дан массив В[1:N]. Найти сумму элементов, находящихся между минимальным и максимальным элементами массива — Pascal(Паскаль)

program PascalGuru;

uses crt;

type
  massiv = array [1 .. 100] of integer;

var
  B: massiv;
  i, n, max, min, summa: integer;

begin
  write('razmer massiva N= ');
  readln(n);

  writeln('Vvedite elementy massiva:');
  for i := 1 to n do
  begin
    write('B[', i, ']= ');
    readln(B[i]);
  end;
  clrscr;
  writeln('Vot vvedenye vami massiv: ');
  for i := 1 to n do
    write(B[i], ', ');
  writeln;
  writeln;

  max := 1;
  min := 1;
  for i := 2 to n do
  begin
    if B[i] > B[max] then
      max := i;
    if B[i] < B[min] then
      min := i;
  end;

  summa := 0;
  for i := min + 1 to max - 1 do
    summa := summa + B[i];

  writeln;
  writeln('Summa= ', summa);
  readln;

end.