delphi. Одномерные массивы

[SEXTANT]

Даны целые числа , каждое из которых отлично от нуля. Если в последовательности отрицательные и положителььные члены чередуются (+, -, +, -, … или -, +, -, +,…), то ответом должна служить сама исходная последовательность. Иначе, получить все отрицательные члены последовательности, сохранив порядок их следования.

Помогите, пожалуйста, не успеваю сделать. Примерно понимаю, что нужно, но не до конца.

[Алексей_2012]

весы=спасибо