Требуется выделить все отрицательные элементы массива A[1..N] в начало массива B[1..N].

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