COMO PUEDO CONVERTIR ESTE PROGRAMA ANONIMO A PROCEDIMIENTO Q RECIBA UN PARAMETRO DE ENTRADA

tema enviado por NANDO en ORACLE
tema iniciado el 28/02/2017
declare i integer; cont integer; palabra Varchar2(20) := 'EUCALIPTO'; letra char; salida varchar2(20); begin i := 1; cont := length(palabra) + 1; while (i <> cont) loop letra := substr(palabra, i, 1); if (letra = 'A' or letra = 'E' or letra = 'I' or letra = 'O' or letra = 'U') then salida := salida || letra; end if; i := i + 1; end loop; dbms_output.put_line('La palabra ' || palabra || ' tiene ' || length(salida) || ' vocales y son: ' || salida); end;