declare
p_arr dbms_sql.Number_Table;
i pls_integer;
Function swap_flag(
     px number
    ,py number
    ,p_asc in boolean default TRUE
    ,p_nulls_last in boolean default TRUE)
return boolean
is
begin
 if px=py or px is null and py is null then --равны
    return FALSE; 
  end if ;
  if p_nulls_last then  --null последний
    if  px is null  then return TRUE;  end if;
  else                          --null вначале
    if  py is null  then return TRUE;  end if;
  end if ;
  if p_asc then  
   return px>py; --по возростанию
  else
   return px<py; --по убыванию
  end if;
end;
procedure do_sort(
     p_arr in out dbms_sql.Number_Table
    ,p_asc in boolean default TRUE
    ,p_nulls_last in boolean default TRUE)
is
  m int :=0;
  i pls_integer;
  j pls_integer;
  n pls_integer;
  tmp number;
  v_f boolean;
begin
 n:=p_arr.last;
 v_f:=TRUE;
 while v_f and m<1000 loop --если была перестановка, пробуем еще раз
   m:=m+1;
   v_f:=FALSE;
   n:=p_arr.prior(n);
   i:=p_arr.first;
   while i<=n loop
     j:=p_arr.next(i);
     if swap_flag(p_arr(i),p_arr(j),p_asc,p_nulls_last) then --проверяем надо ли переставлять
       tmp:=p_arr(j);
       p_arr(j):=p_arr(i);
       p_arr(i):=tmp;
       v_f:=TRUE; --переставляли
     end if;
     i:=p_arr.next(i);
   end loop;
 end loop;
-- dbms_output.put_line('m = '||m);
 if m>1000 then
    raise_application_error(-20001,'ошибка в реализации пузырька (m='||m||').');
 end if;
return; -- тут код сортировки
end;
begin
p_arr(-1) :=0;
p_arr(0) :=-2;
p_arr(1) :=10.1;
p_arr(2) :=null;
p_arr(3) :=10.1;
p_arr(4) :=-1;
p_arr(6) :=null;
do_sort(p_arr);
i := p_arr.first;
while i is not null loop
  dbms_output.put_line('arr('||i||') = '||nvl(to_char(p_arr(i)), 'null')||';');
  i := p_arr.next(i);
end loop;
end;
SQL> /
arr(-1) = -2;
arr(0) = -1;
arr(1) = 0;
arr(2) = 10.1;
arr(3) = 10.1;
arr(4) = null;
arr(6) = null;

PL/SQL procedure successfully completed.

 69  p_arr(6) :=null;
 70  do_sort(p_arr,FALSE,FALSE);
 71  i := p_arr.first;
 72  while i is not null loop
 73    dbms_output.put_line('arr('||i||') = '||nvl(to_char(p_arr(i)), 'null')||';');
 74    i := p_arr.next(i);
 75  end loop;
 76* end;
SQL> /
arr(-1) = null;
arr(0) = null;
arr(1) = 10.1;
arr(2) = 10.1;
arr(3) = 0;
arr(4) = -1;
arr(6) = -2;

PL/SQL procedure successfully completed.

 69  p_arr(6) :=null;
 70  do_sort(p_arr,FALSE,TRUE);
 71  i := p_arr.first;
 72  while i is not null loop
 73    dbms_output.put_line('arr('||i||') = '||nvl(to_char(p_arr(i)), 'null')||';');
 74    i := p_arr.next(i);
 75  end loop;
 76* end;
SQL> /
arr(-1) = 10.1;
arr(0) = 10.1;
arr(1) = 0;
arr(2) = -1;
arr(3) = -2;
arr(4) = null;
arr(6) = null;

PL/SQL procedure successfully completed.