[marcoszorrilla]

Código Delphi [-]
(******************************************************************************)
PROCEDURE cargaManual;                                                          (* Se introducen los datos de la tabla a mano *)
  VAR
    i:integer;
    nombreFicheroGuardar: STRING;
  BEGIN
    FOR i:= 1 TO 5 DO
      BEGIN
        writeln ('Introduzca el nombre del fichero para guardar los datos con extension .dat incluida.');
        readln (nombreFicheroGuardar);
        assign (a, 'nombreFicheroGuardar');
        rewrite (a);
        writeln ('Introduce el nucleotico numero: ',i,'.');
        read (b.nombre);
        (* ERROR *)write (a, b.nombre);
        writeln;
        writeln ('Introduzca la letra su abreviatura');
        readln (b.abreviatura);
        b.abreviatura:= upcase(b.abreviatura);
            (* ERROR *)write (a, b.abreviatura);
        writeln;
        writeln ('Escribe el tipo del neucleotido.');
        read (b.tipo);
            (* ERROR *)write (a, b.Tipo);
      END;
    close (ficheroTablaNucleotidos);
    yaIntroducidoTablaNucleotidos:= true;                                       (* Para que la proxima vez se introduzca por fichero *)
END;
(******

Un Saludo.