Помогите пожалуйста!!!

Требуется выделить все отрицательные элементы массива A[1..N] в начало массива B[1..N]. Какой оператор надо вставить в программу вместо многоточия? Вводите ответ без пробелов.

c:=1;
for k:=1 to N do
if A[k]<0 then begin
...
c:=c+1
end;