формирование вектора чередованием элементов Опции

[18192123]

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

(задача решается только с использованием массивов, процедур)

Я думаю вначале нужно найти первый отрицательный элемент, тогда в векторе х положительные элементы будут занимать чётные позиции ( а как реализовать насчёт позициий - не знаю)

И ещё: число положительных и отрицательных не во всех случаях равно, эти варианты то же нужно учесть или этого можно избежать?

Подскажите пожалуйста!!!

[volvo]

Поскольку если i_pos < 2 * neg есть True, а значение Byte(True) = 1, и Byte(False) = 0, то вот такая конструкция:

inc(i_pos, 1 + byte(i_pos < 2 * neg)); 

аналогична:

if i_pos < 2 * neg then inc(i_pos, 1 + 1) else inc(i_pos, 1 + 0)

(а если результат одинаков - зачем набирать больше текста? )