CREATE OR REPLACE PROCEDURE how_many_chars IS
 c VARCHAR2(1 CHAR);

 TYPE t_gyakorisag IS TABLE OF NUMBER INDEX BY c%TYPE;
 v_Elofordulasok t_gyakorisag;

BEGIN

FOR v IN (SELECT név FROM gyümölcsök)
 LOOP

 FOR i IN 1..LENGTH(v.név)
 LOOP
 c := LOWER(SUBSTR(v.név, i, 1));
 IF v_Elofordulasok.EXISTS(c) THEN
 v_Elofordulasok(c) := v_Elofordulasok(c)+1;
 ELSE v_Elofordulasok(c) := 1;
 END IF;
 END LOOP;
 END LOOP;

 c := v_Elofordulasok.FIRST;
 WHILE c IS NOT NULL LOOP
 DBMS_OUTPUT.PUT_LINE(' ''' || c || ''' - '
 || v_Elofordulasok(c));
 c := v_Elofordulasok.NEXT(c);
 END LOOP;

END how_many_chars;/