Verificar la existencia de un fichero

función que devuelve true si el fichero que se le pasa por parametro formal a la función no existe y escribe en una linea de pantalla el error 'EL FICHERO NO EXISTE'
Observese que para la reutilización de este código será conveniente modificar la sentencia
de asignación del fichero, ASSIGN(fich1, 'fichero1.txt'), cambiando el nombre del fichero de este ejemplo por el nombre de un fichero del cuál el usuario quiera verificar su existencia