Delete Trigger SQL

/*
ANGABE

Schreiben Sie alle notwendigen PL/SQL-Anweisungen (z.B. Trigger) um zu verhindern, dass mit einem einzigen DELETE-Befehl mehr als die Hälfte der Datensätze aus der Tabelle EMP gelöscht werden. Geben Sie alle in diesem Zusammenhang notwendigen Anweisungen an.
Hinweis: Es müssen also die Anzahl Datensätze vor und nach der Delete-Operation verglichen werden, um festzustellen, wie viele nun tatsächlich gelöscht worden sind.

*/
CREATE OR REPLACE TRIGGER delete_trigger
FOR DELETE ON emp
compound TRIGGER

anz INTEGER;
anz_after INTEGER;

BEFORE statement IS BEGIN

SELECT COUNT(*) INTO anz FROM emp;

END BEFORE statement;

after statement IS BEGIN
SELECT COUNT (*) INTO anz_after FROM emp;

IF (anz_after*2 < anz) THEN
raise_application_error (-20001, 'ERROR');
END IF;
END after statement;
END delete_trigger;