Error en codigo, ¿como lo arreglo?

[jorgegetafe]

Teniendo esto:

Código Delphi [-]
 
USES
  SysUtils, crt;
TYPE
  nucleotidos = RECORD
    abreviatura: char;
    nombre: STRING [8];           (* Ponemos un limite para evitar el error: "type lista needs finalization - not allowed in file type " *)
    tipo: STRING [12];            (* Ponemos un limite para evitar el error: "type lista needs finalization - not allowed in file type " *)
  END;
  lista = ARRAY [1..5] OF nucleotidos;
  fichero =  FILE OF lista;            
  ficheroTexto = TEXT;
VAR
  ficheroTablaNucleotidos: fichero;
  eleccion: STRING;
  tipocadenas: STRING[3];
  cadena1,cadena2: STRING [255];
  yaIntroducidoTablaNucleotidos, correcto, completado3: boolean;
  a: fichero;
  b: nucleotidos;

Y luego este procedimiento:

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);
        writeln;
        writeln ('Introduzca la letra su abreviatura');
        readln (b.abreviatura);
        b.abreviatura:= upcase(b.abreviatura);
            (* ERROR *)write (a, b);
        writeln;
        writeln ('Escribe el tipo del neucleotido.');
        read (b.tipo);
            (* ERROR *)write (a, b);
      END;
    close (ficheroTablaNucleotidos);
    yaIntroducidoTablaNucleotidos:= true;                                       (* Para que la proxima vez se introduzca por fichero *)
END;
(******************************************************************************)

Me da siempre el mismo error "(Incompatible types: 'lista and 'nucleotidos')" en cada linea que pongo: " write (a, b)". Os marco las lineas con fallo con: (* ERROR *)

Necesito ayuda porque ya estoy borracho de tanta variable y tipos, digamos que estoy en maraton de programacion :-(

¿Me podeis decir por favor que cambio? Seguro que es facil pero no lo veo.

Muchas gracias.