Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих элементов. Pascal 50поинтов

begin
  var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
  var b:=a.IndexesOf(t->t=0).Select(t->t+1).ToArray;
  b.Println
end.


n= 15
1 -1 0 2 0 0 -2 -2 -2 -2 0 2 0 -2 -1
3 5 6 11 13