Borrar funciones

[Sherezade81]

Muy buenas tardes a todos!!
Estoy tratando de hacer un ejercicio... y me encuentro con cada complicación... Les cuento por si me pueden echar un cable.
Debo crear un procedimiento para eliminar todas las funciones y procedimientos (salvo el actual). De momento, y dado todos los problemas que me encontré estoy borrando las funciones:

CREATE OR REPLACE PROCEDURE BORRA_OBJETOS10 IS
CURSOR C1 IS SELECT * FROM USER_OBJECTS WHERE OBJECT_TYPE='FUNCTION' FOR UPDATE;
BEGIN
FOR REG IN C1 LOOP
EXECUTE IMMEDIATE 'DROP '|| C1.OBJECT_TYPE || ' "' || C1.OBJECT_NAME ||'" WHERE CURRENT OF C1';
END LOOP;
END;
/

Pero me da error: ERROR en línea 5: PLS-00225: la referencia al subprograma o cursor 'C1' está fuera del ámbito
¿Saben por qué? ¿Podrían aclararme un poquito?
Muchas gracias por su atención.
Un saludo!