sentencias entre procedure y begin.