SQL & PL/SQL

This transaction will work properly?
I know it work but I have feeling it may cause a problem
To open a cursor and delete the row I have selected.


CREATE OR REPLACE PROCEDURE PRC_MAIN_INTER IS
BEGIN
BEGIN

FOR A IN (SELECT B.HIST_ID
FROM MOBIDEO.MAIN_INTER B
WHERE B.STATUS = 9)
LOOP
BEGIN
DELETE MAIN_INTER C WHERE C.HIST_ID = A.HIST_ID;
COMMIT;
END LOOP;

END;
COMMIT;
END PRC_MAIN_INTERF;