НАЙТИ ПЯТУЮ ПО СЧЕТУ ЕДИНИЦУ В МАССИВЕ ИЗ 0 И 1

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger(n=),0,1);
  a.Println;
  var b:=a.Select((x,i)->(x,i)).Where(x->x[0]=1).Select(x->x[1]).ToArray;
  if b.Count>=5 then
    Writeln(Номер пятой по порядку единицы в массиве равен ,b[4]+1)
  else Writeln(В массиве меньше пяти единиц)
end.

Пример
n= 17
1 0 1 0 1 1 0 0 1 0 0 1 1 0 0 0 1
Номер пятой по порядку единицы в массиве равен 9