[ Foro de Pascal ]

FICHERO TEXTO..por favor!!!

Buenos dias, necesito ayuda no se como hacer este ejercicio ..los apuntes que tengo no trae nada de lo que pide...por favor alguien que me pueda ayudar...

1. Solicitar el nombre del fichero de entrada, y abrirlo para lectura.
2. Solicitar el nombre del fichero destino, comprobar que es distinto del nombre del fichero de entrada, y si es así abrirlo para escritura.
3. Solicitar la línea a añadir al final del fichero.
4. Leer línea a línea el fichero de entrada: en cada iteración del bucle leerá una línea del fichero de entrada y escribirá esa misma línea en el fichero destino.
5. Una vez alcanzado el final del fichero origen, se cerrará el mismo y a continuación, se añadirá una línea adicional al fichero destino. Tras añadir esta línea, se cerrará también el fichero destino.

anteriormente hice uno que me pedia esto os lo pongo por si os puede servir de referencia...

Realizar un programa que abra un fichero de texto para lectura, y lo vaya leyendo línea a línea. Deberá presentar como resultado final el nombre del fichero, el número de líneas y el número de caracteres.

Program Ficheros_texto;
var
fichero : text;
nombre: string;
lineas: string;
Numcaracteres, Numlineas: integer;

Begin
nombre:='Lista.txt';
assign (fichero, nombre);
Reset (fichero);
Numcaracteres:=0;
Numlineas:= 0;
while (not eof (fichero)) do
begin
readln (fichero, lineas);
Numlineas:= Numlineas + 1;
Numcaracteres := Numcaracteres + length(lineas);
end;
writeln ('El nombre del fichero es: ', nombre);
writeln ('El numero total de lineas es: ', Numlineas);
writeln ('El numero de caracteres es: ', Numcaracteres);
readln();
Close (fichero);
End.