[__cadetill]

he echo alguna prueba y, este error creo que te lo da porque hay que definir las longitudes (exactas) de cada campo

de echo, si lo declaras como "string" a secas, tambien salta este error.

podrias mirar de solucionarlo de la manera que te propongo a continuacion, a ver que te parece

type
    LongText = array[1..500] of string[255];

    TRegistro = record
        id    : integer;
        libro : string[25];
        texto : LongText;
end;

var Archivo: file of TRegistro;

o bien utilizando el TStringsList asi

type
    TRegistro = record
        id    : integer;
        libro : string[25];
        texto : TStrings;
end;

var Archivo: file of TRegistro;

A ver si te sirve alguna de las 2 soluciones