Bài 2: Hãy nhập vào mảng A[n] phần tử sắp xếp mảng có các số dương tăng dần và số âm giảm dần trên pascal

var n,i,j,t,d1,d2: int64;
    a,b: array[1..100005] of int64;
begin
    readln(n);
    d1:=0; d2:=0;
    for i:=1 to n do begin
        read(t);
        if t>0 then begin
            d1:=d1+1;
            a[d1]:=t;
        end else begin
            d2:=d2+1;
            b[d2]:=t;
        end;
    end;
    for i:=1 to d1 do for j:=i+1 to d1 do if a[i]>a[j] then begin
        t:=a[i];
        a[i]:=a[j];
        a[j]:=t;
    end;
    for i:=1 to d2 do for j:=i+1 to d2 do if b[i]<b[j] then begin
        t:=b[i];
        b[i]:=b[j];
        b[j]:=t;
    end;
    for i:=1 to d1 do write(a[i],' ');
    writeln;
    for i:=1 to d2 do write(b[i],' ');
end.

uses crt;
var  n,i,j,m,t,_,x:longint;
a,b:array[1..100000] of longint;
begin
clrscr;
readln(n);
i:=0;
j:=0;
for _:=1 to n do
begin
 readln(x);
 if x>0 then
 begin
  i:=i+1;
  a[i]:=x;
 end
 else
 begin
  j:=j+1;
  b[j]:=x;
 end;
end;
n:=i;
m:=j;
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]>a[j] then
 begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
 end;
for i:=1 to m-1 do
for j:=i+1 to m do
 if b[i]<b[j] then
 begin
  t:=b[i];
  b[i]:=b[j];
  b[j]:=t;
 end;
for i:=1 to n do
 write(a[i],' ');
for i:=1 to m do
 write(b[i],' ');
readln
end.