Teniendo estas declaraciones:
Código Delphi
[-]
PROGRAM Prac_3b_1; {$APPTYPE CONSOLE}
USES
SysUtils, crt;
TYPE
nucleotidos = RECORD
abreviatura: char;
nombre: STRING [8];
tipo: STRING [12];
END;
lista = ARRAY [1..5] OF nucleotidos;
tablaNucleotidos= lista;
fichero = FILE OF tablaNucleotidos;
VAR
ficheroTablaNucleotidos: fichero;
eleccion: STRING;
yaIntroducidoTablaNucleotidos: boolean;
y este procedimiento:
Código Delphi
[-]
PROCEDURE cargaManual;
VAR
i:integer;
BEGIN
assign (ficheroTablaNucleotidos, paramStr(1));
rewrite(ficheroTablaNucleotidos);
FOR i:= 1 TO 5 DO
BEGIN
clrscr();
writeln ('Introduce el nucleotico numero: ',i,'.');
read (tablaNucleotidos[i].nombre);
write (ficheroTablaNucleotidos, tablanucleotidos[i].nombre);
clrscr();
writeln ('Su abreviatura es: ', UpCase(tablaNucleoticos[i].nombre[1]),'.');
tablaNucleoliticos[i].abreviatura:= UpCase(tablaNucleoticos[i].nombre[1];
write (ficheroTablaNucleotidos, tablaNucleoliticos[i].abreviatura);
readln;
clrscr();
writeln ('Escribe el tipo del neucleotido' ,tablaNucleotidos[i].nombre,'.');
read (tablaNucleoticos[i].tipo);
write (ficheroTablaNucleotidos, tablaNucleoticos[i].tipo);
END;
close (ficheroTablaNucleotidos);
yaIntroducidoTablaNucleotidos:= true;
END;
A ver si me podeis ayudar con el error que tengo al leer, que le he dado vueltas y nada.
Y me gustaria saber si estoy escribiendo bien en el fichero.
muchas gracias!