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

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 26
0 0 0 0 0 0 0 -46 -36 14 35 42 26