Rename ejercicio1d to ejercicio1d.pas