Дан массив из n целых чисел.составить алгоритм,определяющий номера всех нулевых элементов и их количество

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-5,5);
  a.Println;
  var b:=a.Select((x,i)->x=0?i+1:0).Where(i->i>0);
  if b.Count>0 then begin
    b.Println(','); Writeln('Кол-во: ',b.Count)
    end
  else Writeln('Нет нулевых элементов')
end.

Тестовое решение:
n= 20
-4 2 5 -2 0 5 4 4 -3 -2 -5 2 1 0 -2 0 4 1 -2 3
5,14,16
Кол-во: 3