BEGIN
FOR V_REC IN
(
select r.* from 
 comanda C, 
 comanda1 C1,
 REZERVATS R
where
 C.CODCOMANDA = C1.CODCOMANDA
 AND R.CODCOMANDA1 = C1.CODCOMANDA1
 AND C.AN * 12 + C.LUNA < 2011 * 12 + 1
)
LOOP
  DELETE FROM REZERVATS WHERE CODREZERVATS = V_REC.CODREZERVATS;
END LOOP; 
END;