Pascal/Turbo Pascal - Aydua con ficheros binarios

Hola gentes, a ver si me pueden hechar un cable con un problemilla

En Turbo Pascal tengo que generar un fichero binario a partir de uno de texto, para leer el archivo de texto no tengo problemas, pero no se como escribir en el binario. Que tiene esta estructura:

Type
Tfich= record
Clave:Integer;
Indice:Real;
End;

Fich= file of Tfich:

Var
F:Fich

Como hago las sentencias de asignacion entre los datos leidos del fichero de texto y el binario.

Muchas gracias a todos. Si tuvieran un sample code, estaria muy agradecido

Primero tienes que declarar una variables del mismo tipo del archivo (1) donde vas a guardar los datos que recuperes del archivo de texto (2), para luego escribir esta variable directamente en el archivo (3).

aux:Tfich; (1)

aux.clave:=clave
aux.indice:=indice (2) {Clave e indice son los datos que leiste del archivo de texto}

seek(archivo,sizeof(archivo)) {buscas el final del archivo}
write(archivo,aux) {guardas el registro en el archivo}

Y pues si son varios datos solamente colocas todo esto en un ciclo.

Ok, muchas gracias, eso era justo lo k necesitaba