Hola, buena tardes. Me salta el siguiente error al compilar la tarea. Todos los begin los cerré con su respectivo end y al final de la función y el procedimiento ambos los cerré con end; entonces no sé dónde está el error. Me podrían ayudar? 
En respuesta a Milagros Abril Perez Schäfer
Re: Error al compilar la tarea 1
Eso es compilando tarea1.pas o principal.pas? Porque en tarea1.pas solo tenés los subprogramas, probá compilando principal.pas