DECLARE
    a1 NUMBER;
    temp VARCHAR2(120);
    sixnum VARCHAR2(120);
    i INTEGER;
    j INTEGER;
    -- 定义数组类型
    TYPE ArrayType IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
    -- 定义数组
    arr ArrayType;
    -- 定义起泡排序标志变量
    flag INTEGER := 0;
    -- 起泡排序的交换变量
    t INTEGER;
    
BEGIN
    sixnum:=' ';
    temp:=' ';
    i := 0;
    WHILE (length(sixnum)<14) LOOP
        LOOP
            --生成号码
            a1:= floor( dbms_random.value(1,33));
            IF a1<10 AND a1>0 THEN
                temp:='0'||a1;
                dbms_output.put_line(temp);
            ELSE  
                temp:=a1;
                dbms_output.put_line(temp);
            END IF;
            IF instr(sixnum,temp,1,1)<=0 THEN --找不到  
                sixnum:=sixnum||temp;
                arr(i) := temp;
                i := i + 1;
                EXIT;
            END IF ;  
        END LOOP;
    END LOOP;
    dbms_output.put_line(sixnum);
    
    -- 进行起泡排序
    FOR i IN 0..arr.count - 1 LOOP
        flag := 1;
        FOR j IN 0..arr.count - i - 2 LOOP
            IF arr(j) < arr(j + 1) THEN
                flag := 0;
                t := arr(j);
                arr(j) := arr(j+1);
                arr(j+1) := t;
            END IF;
        END LOOP;
        IF flag = 1 THEN
            EXIT;
        END IF;
    END LOOP;   
    
    DBMS_OUTPUT.PUT_LINE('排序后的结果');
    FOR i IN 0..arr.count - 1 LOOP
        DBMS_OUTPUT.PUT_LINE(arr(i) || ', ');
    END LOOP; 
END;

------解决方案--------------------

SQL> create or replace type a1_arr IS VARRAY(7) of numbe
 2  /

SQL> declare
 2  --a1 number;
 3  a1 a1_arr := a1_arr(0,0,0,0,0,0,0);
 4  i  number;
 5  temp varchar2(120);
 6  sixnum varchar2(120);
 7  begin
 8  sixnum:=' ';
 9  temp:=' ';
  10  i :=1 ;
  11  while (length(sixnum)<21) loop
  12    loop
  13    --生成号码
  14    a1(i):= floor( dbms_random.value(1,33));
  15    if a1(i)<10 and a1(i)>0 then
  16    temp:='*0'||a1(i);
  17    dbms_output.put_line(temp);
  18    else
  19    temp:='*'||a1(i);
  20    dbms_output.put_line(temp);
  21    end if;
  22
  23    if instr(sixnum,temp,1,1)<=0 then --找不到
  24    sixnum:=sixnum||temp;
  25    exit;
  26    end if ;
  27    end loop;
  28    i:=i+1 ;
  29  end loop;
  30    dbms_output.put_line(sixnum);
  31    --数组排序
  32    for i IN 1.. 7 LOOP
  33     for j IN 1..6 LOOP
  34     if a1(i) < a1(j) then
  35     temp := a1(i);
  36     a1(i) := a1(j);
  37     a1(j) := temp ;
  38     end if;
  39     end loop;
  40    END LOOP;
  41    --输出