В массиве A(n) отсортировать положительные числа, выделив их в отдельный массив, в порядке бодростания, а отрицательные числа в порядке убывания

uses crt;
const nmax=100;
var a,b,c:array[1..nmax] of integer;
    na,nb,nc,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер исходного массива до ',nmax,' na=');
readln(na);
until na in [1..nmax];
writeln('Исходный массив:');
for i:=1 to na do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
writeln;
nb:=0;
for i:=1 to na do
if a[i]>0 then
 begin
  nb:=nb+1;
  b[nb]:=a[i];
 end;
if nb=0 then writeln('Положительных чисел в массиве нет!')
else
 begin
  for i:=1 to nb-1 do
  for j:=i+1 to nb do
  if b[i]>b[j] then
   begin
    x:=b[i];
    b[i]:=b[j];
    b[j]:=x;
   end;
  writeln('Отсортированный массив положительных чисел:');
  for i:=1 to nb do
  write(b[i]:4);
  writeln;
  writeln;
 end;
nc:=0;
for i:=1 to na do
if a[i]<0 then
 begin
  nc:=nc+1;
  c[nc]:=a[i];
 end;
if nc=0 then writeln('Отрицательных чисел в массиве нет!')
else
 begin
  for i:=1 to nc-1 do
  for j:=i+1 to nc do
  if c[i]<c[j] then
   begin
    x:=c[i];
    c[i]:=c[j];
    c[j]:=x;
   end;
  writeln('Отсортированный массив отрицaтельных чисел:');
  for i:=1 to nc do
  write(c[i]:4);
 end;
readln
end.