Trecord=record
a:array of Tinf; //tinf-другая запись
...
f:File of Tnrecord;
выскакивает ошибка о необходимости обозначить границы массива, а ставить эти границы вручную, а потом не использовать ненужные последние элементы очень не хочется
Trecord=record
a:array of Tinf; //tinf-другая запись
...
f:File of Tnrecord;