ejercicio 1Crear el fichero de texto ‘enteros.txt’ con varios números enteros en cada una de sus
líneas (emplear para ello el bloc de notas). Desarrollar un programa Pascal, dirigido
por un menú de opciones, que permita ejecutar los siguientes algoritmos:
1) Procedimiento que muestre por pantalla el contenido del fichero ‘enteros.txt’,
respetando su estructura de líneas original.
2) Procedimiento que cree el fichero de enteros ‘enteros.dat’, con los enteros
contenidos en el fichero ‘enteros.txt’.
3) Procedimiento que muestre por pantalla el contenido de ‘enteros.dat’.
4) Procedimiento que cree el fichero de reales ‘reales.dat’, con los valores enteros
contenidos en el fichero ‘enteros.txt’.
5) Procedimiento que muestre por pantalla el contenido del fichero ‘reales.dat’.
6) Procedimiento que cree una copia del fichero ‘enteros.txt’ con el nombre
‘enteros2.txt’.
7) Procedimiento que cree una copia del fichero ‘enteros.dat’ dándole el nombre
‘enteros2.dat’.
Cada algoritmo desarrollado para cada opción del menú deberá recibir como
parámetro/s el nombre o nombres de los ficheros que intervienen, de forma que
puedan reutilizarse en otros programas.

ejercicio 2
Crear el fichero de texto ‘alumnos.txt’ con los datos de los alumnos matriculados en
1º de Ing. Química en el curso 2008-2009 (emplear para ello el bloc de notas). Los
datos de cada alumno se distribuirán en cinco líneas de la siguiente forma:
1ª: Apellidos, Nombre
2ª: NIP
3ª: Dirección
4ª: CP, Población
5ª: Teléfono
A partir del tipo de dato:
type
tpAlumno = record
nombre: string[50];
apellidos: string[100];
NIP: integer;
direccion: string;
codPostal: string[5];
poblacion: string[100];
nota: real;
end
crear el fichero de registros ‘alumnos.dat’ (como file of tpAlumno) con la misma
información del fichero de texto ‘alumnos.txt’.