ADA - Archivo Directo

Hola de nuevo

Tengo un problema con los archivos directos que no se como resolver.
Estoy intentando tener en una posicion del fichero un contador que cada vez que se acceda se incremente en uno, pero resulta que al acceder a el se inicializa.
Lo que hago es:
var_cliente.contador:=var_cliente.contador +1;
siendo contador un entero.

Alguien sabe que puedo hacer tener un contador en un elemento de un archivo directo.

Desde ya mil gracias.

Nuria Ruiz

Ya está arreglado.

Necesito que me expliquen y me indiquen todo lo que sepan de Archivos Directos.
Si es posible lo más básico para realizar un programa de dicho tema...

informacion para exposicion de informacion de archivos direstos