Поменять нулями элементы массива, которые размещены меж первым минимальным и заключительным

//PascalABC.NET 3.1 сборка 1200
begin
    var n := ReadInteger('n = ');
    var a := ArrRandom(n, -50, 50);
    a.Println;
    var mini := a.IndexMin();
    var maxi := a.Max();
    maxi := a.FindLastIndex(x -gt; x = maxi); //разыскиваем заключительный максимум, если их несколько
    
    Println(mini, maxi);
    if maxi lt; mini then Swap(mini, maxi);
    
    for var i := mini + 1 to maxi - 1 do
        a[i] := 0;
    a.Println;
end.

Программка в прибавленьи ===============