Часть массива перед минимальным значениям обнулить паскаль

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  for var i:=0 to a.IndexMin-1 do a[i]:=0; a.Println;end.Примерn= 13-10 44 17 13 50 49 -7 -46 -36 14 35 42 260 0 0 0 0 0 0 -46 -36 14 35 42 26