Prueba esto a ver si te funciona
Código Delphi
[-]PROCEDURE cargaManual;
VAR
i:integer;
nombreFicheroGuardar: STRING;
BEGIN
writeln ('Introduzca el nombre del fichero para guardar los datos con extension .dat incluida.');
readln (nombreFicheroGuardar);
assign (a, 'nombreFicheroGuardar');
rewrite (a);
FOR i:= 1 TO 5 DO
BEGIN
writeln ('Introduce el nucleotico numero: ',i,'.');
read (b.nombre);
writeln ('Introduzca la letra su abreviatura');
readln (b.abreviatura);
b.abreviatura:= upcase(b.abreviatura);
writeln ('Escribe el tipo del neucleotido.');
read (b.tipo);
write (a, b);
END;
close (ficheroTablaNucleotidos);
yaIntroducidoTablaNucleotidos:= true;
END;
No te garantizo que funcione pero por ahí va la cosa. No olvides que
a es un archivo de registros del tipo nucleotido