Duda Archivos Pascal

[pqsd]

Hola que tal , tengo una pequeña duda de como resolver una parte del tema de archivos.

Supongamos que tengo un archivos que se llama ventas de colectivos que tiene un registro con fecha: AAAAMMDD, cliente, apellido, y sucursal si¿?

osea tendria un
treg = record
fecha: string[8];
cliente: word;
apellido: string[30]
sucursal: word;

y aca se crea el T_arch =file of treg .


Suponemos que ya lo tengo cargado no?

Yo ahora lo que quiero es ese mismo archivo igual pero que tenga otros campos, osea copiar los datos que tiene pero algo separado en un nuevo archivo con estos registros

treg_2 = record
año: integeR;
mes: byte
dia:byte
apellido: string[30]

Y aca me crearia mi nuevo T_arch2 = file of treg_2.


Lo que no entiendo es como copiar las cosas que ya tengo en el registro 2, xq ejemplo, apellido queda igual, pero para el año se me ocurre hacer algo asi

copiar los primeros 4 digitos del año , desp. copiar los 2 digitos del mes y los 2 del dia, y estos pasarlos a enteros..

Algo asi: val (copy(treg.fecha,1,4) , treg_2.año , code ) <--- (esto seria para el año)


esta bien? ,ando un poco confundido :S