Rename ejercicio1a to ejercicio1a.pas