Copia fichero de texto

Se copia un archivo de texto en otro:

program copiatexto(input,output);
type
    tpText= text;
    tpCar= char;
    tpNombre= string[50];

var
   texto,copia: tpText;
   car: tpCar;
   origen,destino:tpNombre;

begin
     write('Introduzca el nombre del fichero de texto que quieres copiar (sin la extension);');
     readln(origen); origen:=origen+'.txt';
     write('Introduzca el nombre de la copia del fichero (sin la extension);');
     readln(destino); destino:=destino+'.txt';
     assign(texto, origen);
     assign(copia, destino);
     reset(texto);rewrite(copia);
     while not eof(texto) do begin
           while not eoln(texto) do begin
                 read(texto,car);
                 write(copia,car)
           end;
           if not eof(texto) then begin
             readln(texto);
             writeln(copia)
           end;
           writeln
     end;
     close(texto);close(copia);
     readln; readln
end.





Salud.