WRITE A PLSQL BLOCK INPUT ANY STRING AND FIND OUT THE NO. OF VOWELS AND CONSONANTS?

DECLARE
STR VARCHAR(100):='&STR';
NV NUMBER:=0;
NC NUMBER:=0;
BEGIN
FOR I IN 1..LENGTH(STR) LOOP
IF(SUBSTR(STR,I,1)='A' OR SUBSTR(STR,I,1)='E' OR SUBSTR(STR,I,1)='I' OR SUBSTR(STR,I,1)='O'
OR SUBSTR(STR,I,1)='U') THEN
NV:=NV+1;
ELSE
NC:=NC+1;
END IF;
END LOOP;
DBMS_OUTPUT.PUT_LINE('NO. OF VOWELS ARE'||' '||NV);
DBMS_OUTPUT.PUT_LINE('NO. OF CONSONANTS ARE'||' '||NC);
END;