Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
Бага при считывании записи из файла решается так:
tReg1= packed record
(
отсель)
Ну и всякие мои != вместо <> несколько смущают не знакомых с плюсами зрителей, а я в упор не вижу))