Есть такие массивы (НО ОНИ ЕСТЬ ТОЛЬКО В PASCAL ABC NET), которые называются динамические. Это такие массивы, длину которых ты назначаешь сам в теле программы. Здесь тебе нужно использовать именно их, так как ты заранее не знаешь, сколько будет положительных компонентов.

Пример объявления динамического массива:

var a: array of integer; //вот это до begin

SetLength(a, b); //после begin, где b - количество элементов массива

Далее работаешь как с обычным массивом.