Массив M состоящий из 30 элементов, переоформить так, чтобы вначале стояли все положительные и равные нулю элементы в порядке убивания их значения, а затем все отрицательные в порядке возрастания значений — Pascal(Паскаль)

uses crt;
const n=30;
var m:array[1..n] of integer;
    i,j,x:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  m[i]:=random(20)-10;
  Write(m[i],' ');
 end;
Writeln;
 for i:=1 to n do
  for j:=i to n do
   if m[i]<m[j] then
    begin
     x:=m[i];
     m[i]:=m[j];
     m[j]:=x;
    end;
 for i:=1 to n do
  if m[i]<0 then
   begin
    for j:=i to n do
     if m[i]>m[j] then
      begin
       x:=m[i];
       m[i]:=m[j];
       m[j]:=x;
      end;
    end;
for i:=1 to n do
 Write(m[i],' ');
Readln;
end.