(3) +1
(0) отбор только по регистратору. Запись/чтение набора только целиком по регистратору. А цикл не обязателен:
ЗаписьНабора = ТекНЗ[стрЗаписьПустыхИнв.НомерЗаписи - 1];//получение записи по индексу
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший