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

program AB;
uses Crt;
const
  n = 10;
var
  a, b: array[1..n] of integer;
  i, max, min, maxi, mini, n1, n2: integer;
 
begin
  ClrScr;
  Randomize;
  WriteLn('Posledovatelnost A:');
  for i := 1 to n do
  begin
    a[i] := Random(50);
    Write(a[i], ' ');
  end;
  WriteLn;
  maxi := 1; mini := 1;
  max := a[1]; min := a[1];
  for i := 2 to n do
  begin
    if max < a[i] then
    begin
      maxi := i;
      max := a[i];
    end;
    if min > a[i] then
    begin
      mini := i;
      min := a[i];
    end;
  end;
  if maxi < mini then
  begin
    n1 := maxi;
    n2 := mini;
  end
  else begin
    n1 := mini;
    n2 := maxi;
  end;
  WriteLn('Posledovatelnost B:');
  for i := 1 to n1 do
  begin
    b[i] := a[i];
    Write(b[i], ' ');
  end;
  for i := n2 to n do
  begin
    b[i] := a[i];
    Write(b[i], ' ');
  end;
  ReadLn;
end.