Error en codigo, ¿como lo arreglo?

[Turboleta]

Prueba esto a ver si te funciona

Código Delphi [-]
PROCEDURE cargaManual;                                                          (* Se introducen los datos de la tabla a mano *)
  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
         // se leen todos los campos del registro b
         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);
          // se escribe el registro b en el fichero a
          write (a, b);
      END;
    close (ficheroTablaNucleotidos);
    yaIntroducidoTablaNucleotidos:= true;                                       (* Para que la proxima vez se introduzca por fichero *)
END;

No te garantizo que funcione pero por ahí va la cosa. No olvides que a es un archivo de registros del tipo nucleotido