Nhập vào 1 mảng, đưa số phần tử dương về đầu và số phần tử âm về cuối mảng. Sắp xếp mảng theo thứ tự tăng dần.(làm theo kiểu dữ liệu nha mn )

Program FNG;
Uses crt;
Var A,B,C: array[1..1000] of longint;
    n,i,j,tg,da,dd: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        da:=0; dd:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]>0 then
                Begin
                        inc(dd);
                        B[dd]:=A[i];
                End;
                If A[i]<0 then
                Begin
                        inc(da);
                        C[da]:=A[i];
                End;
        End;

        For i:=1 to dd-1 do
                For j:=i+1 to dd do
                        If B[i]>B[j] then
                        Begin
                                tg:=B[i];
                                B[i]:=A[j];
                                B[j]:=tg;
                        End;
        For i:=1 to dd do Write(B[i],' ');

        For i:=1 to da-1 do
                For j:=i+1 to da do
                        If C[i]>C[j] then
                        Begin
                                tg:=C[i];
                                C[i]:=C[j];
                                C[j]:=tg;
                        End;
        For i:=1 to da do Write(C[i],' ');

        Readln
End.