Oye te envio este codigo haber si te sirve
Sigue adelante tio, en lo que te pueda ayudar ahi estoy.
Program CopiaArchivo;
Uses
Crt;
Var
ArchOrigen : Text;
ArchDestino : Text;
Linea : String;
NomArchOrigen : String;
NomArchDestino: String;
Begin
ClrScr;
Write('Ingrese Nombre de Archivo Origen : ');
ReadLn(NomArchOrigen);
Write('Ingrese Nombre de Archivo Destino: ');
ReadLn(NomArchDestino);
Assign( ArchOrigen , NomArchOrigen );
Reset( ArchOrigen );
Assign( ArchDestino , NomArchDestino );
ReWrite( ArchDestino );
HighVideo;
WriteLn('Copiando Archivo ... ');
While not( Eof( ArchOrigen ) ) Do
Begin
ReadLn( ArchOrigen , Linea );
WriteLn( ArchDestino , Linea );
WriteLn(Linea);
Delay( 1500 );
End;
LowVideo;
Close( ArchOrigen );
Close( ArchDestino );
End.
Mostrar Mensajes
