求调错 菜鸟一枚

declare
  cardno varchar2(8);
  passwd varchar2(8);
  num    number(5) :=0;
begin
  <>
 
  num :=num +1;
  
  select round(dbms_random.value(10000000,99999999)) into passwd from dual;
  select 'vip'||1000+num  into cardno from dual;
  
  insert into puser.cards(cardno,passwd) values(cardno,passwd);
  
   if num>=1001 then
    exit basic_loop;
   end if;
  end loop;
END ;
/