[Enan0]

Bueno buscando en el viejo y querido Pascal 7 de Joyanes Aguilar tenemos

Código Delphi [-]

Var
  archi,aux: file of (mi tipo de datos)
  ....
  
  assign (archi, 'miarchivo.algo');
  aux:=archi;
  reset(archi); //debe existir
  while not eof(archi) do
    begin
      readln(archi,mitopodedatos);
      writeln(aux,mitipodedatos);
    end;
  //aux es la copia del arhivo abierto de lectura y escritura y estas al final de la linea