Как записать в Паскале?

Вот так:

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

L := 1; R := ArrSize;

while L < R do

  if A[L] > 0 then Inc(L)

  else if A[R] < 0 then Dec(R)

  else begin Tmp := A[L]; A[L] := A[R]; A[R] := Tmp; end;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Но! Так как происходит некоторое упорядочивание элементов массива, то по определению это уже сортировка! !

ЗЫ Я не учитывал нулевые элементы массива. Данный код будет зацикливаться, если встретит больше одного 0.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Вот так выглядит работа вышеприведённого кода:

8 -7 -1 5 -8 -4 -2 4 9 -5 0 -9 1 7 3 -6 -3 6 2
8 2 -1 5 -8 -4 -2 4 9 -5 0 -9 1 7 3 -6 -3 6 -7
8 2 6 5 -8 -4 -2 4 9 -5 0 -9 1 7 3 -6 -3 -1 -7
8 2 6 5 3 -4 -2 4 9 -5 0 -9 1 7 -8 -6 -3 -1 -7
8 2 6 5 3 7 -2 4 9 -5 0 -9 1 -4 -8 -6 -3 -1 -7
8 2 6 5 3 7 1 4 9 -5 0 -9 -2 -4 -8 -6 -3 -1 -7
8 2 6 5 3 7 1 4 9 0 -5 -9 -2 -4 -8 -6 -3 -1 -7

Вообще-то элементарно методом "Пузырьков". Но это тоже сортировка... .
Первое, что приходит на ум без сортировки - перебором всех элементов массива раскидывать их на ДВА массива - положительный и отрицательный. А потом соединить эти массивы. Смысл понятен?

чувак тебе надо отсортировать массив без его сортировки- убей автора задания головой об стену.

сортировка это упорядочивание элементов по какому-то критерию. . то что тебе нужно сделать и есть сортировка, т. о. без нее не обойтись. Уточняй условие