Требуется выделить все отрицательные элементы массива A

в начало массива B. Какой оператор надо вставить в программу вместо многоточия?
c:=1;
for k:=1 to N do
if A<0 then begin
...
c:=c+1
end;