Primero el
Tipo Fichero decláralo como
File of Nucleotidos
Código Delphi
[-]fichero = File of nucleotidos
Luego, en el
buble for realizas la asignación del fichero y su apertura para escritura 5 veces (sácalos fuera del for). Aunque no te diera ningún error estás posicionando el puntero, cada vez, al principio del archivo por lo que al introducir un registro destruyes al anterior, quedando en el archivo únicamente el último.
Espero haberte ayudado.