По-ходу вы и так живёте правильно
Какой-то очередной велосипед, и без этого ведь прекрасно работает всё: у вас уже есть переменная Kod, обзовите её KodToPrint и всё будет согласно заявленной логике минус лишние пару-тройку процедур и функций, про uses только не забывайте