Rename ejercicio1b to ejercicio1b.pas