Дан массив n чисел. Преобразовать его таким образом, чтобы положительные числа были в начале, 0 в середине, отрицательные в конце- Pascal(Паскаль)

var
  a: array [1 .. n] of integer;
.. .for i := 1 to n - 1
do

begin
  for j := i + 1 to n do
  begin
    if a[i] > a[j] then
    begin
      m := a[i];
      a[i] := a[j];
      a[j] := m;
    end;
  end;
end;
// остаеться лишь вывести массив на экран