В одномерном массиве (в массиве n элементов) удалить все элементы стоящие между минимальным положительным и максимальным отрицательным элементом

Var
  Arr : Array Of Integer;
  i, j, N, Max, Min, i_max, i_min : Integer;
Begin
  Randomize;
  Write('Введите размер массива: ');
  ReadLn(N);
  SetLength(Arr, N);
  Max := -50;
  Min := 50;
//Заполняем массив случайными числами в -50..50. Также находим минимальный и максимальный элемент
  For i := 0 To N - 1 Do
    Begin
      Arr[i] := Random(101) - 50;
        Write(Arr[i]:3);
      If Arr[i] > Max Then
        Max := Arr[i];
      If Arr[i] < Min Then
        Min := Arr[i];
    End;
WriteLn;
//Нахождение минимального положительного и максимального отрицательного элемента
    For i := 0 To N - 1 Do
      Begin
        If (Arr[i] < Max) And (Arr[i] > 0) Then
              Begin
            Max := Arr[i];
                i_max := i;
              End;
      If (Arr[i] > Min) And (Arr[i] < 0) Then
        Begin
              Min := Arr[i];
              i_min := i;
            End;
      End;
      
    If i_min > i_max Then
      Begin
        i_min := i_min + i_max; 
        i_max := i_min - i_max; 
        i_min := i_min - i_max;
      End;
      
    For i := i_min + 1 To i_max - 1 Do
      Begin
        For j := i To i_max Do
          Arr[j] := Arr[j + 1];
      Dec(i_max);
      End;
    
    For i := 0 To N - 1 Do
      Write(Arr[i]:3);  
End.