Переставить элементы массива так, чтобы сначала шли нули, потом отрицательные, а затем положительные элементы

const
  n = 60;
 
var
  x: Array [1..n] of real;
  i, j, q: Integer;
  t: real;
 
begin
  randomize;
  for i := 1 to n do 
  begin
    x[i] := -n div 2 + random * n;
    write(x[i]:8:2);
  end;
  q := 1;
  while (q < n) and (x[q] = 0) do 
    inc(q);
  i := n;
  while (i > q) do 
  begin
    if x[i] = 0 then 
    begin
      inc(q);
      for j := i downto q do 
      begin
        T := x[j];
        x[j] := x[j - 1];
        x[j - 1] := T;
      end;
    end 
    else 
      dec(i);
  end;
  i := n;
  while (i > q) do 
  begin
    if x[i] < 0 then 
    begin
      inc(q);
      for j := i downto q do 
      begin
        T := x[j];
        x[j] := x[j - 1];
        x[j - 1] := T;
      end;
    end 
    else 
      dec(i);
  end;
  writeln;
  writeln('Преобразованный массив:');
  for i := 1 to n do 
    write(x[i]:8:2);
end.

const n=60;
var
  a: array [0..n+1] of Real;
  t: Real;
  p, q: Integer;
begin
  Randomize;
  for p:=1 to n do a[p]:=-100+200*Random;
  for p:=1 to n div 3 do a[1+Random(n)]:=0;
  WriteLn('A ='); for p:=1 to n do Write(a[p]:8:2); WriteLn;
  a[0]:=0; a[n+1]:=1;
  p:=1; q:=n;
  repeat
    while a[p]=0 do Inc(p);
    while a[q]<>0 do Dec(q);
    if p>=q then Break;
    t:=a[p]; a[p]:=a[q]; a[q]:=t; Dec(q);
  until False;
  q:=n;
  repeat
    while a[p]<0 do Inc(p);
    while a[q]>0 do Dec(q);
    if p>=q then Break;
    t:=a[p]; a[p]:=a[q]; a[q]:=t; Dec(q);
  until False;
  WriteLn('A''='); for p:=1 to n do Write(a[p]:8:2); WriteLn;
end.