Сумма положительных членов массива в паскале