Читал, и просто поражался...
AssignFile(F, 'paroli.txt');
Лучше назвать так: Paroli-zawufrovannue-XORom.txt.
Даже в страшном сне не могу представить, чтобы кто-то использовал шифрование "хоr".
Если кому интересно, могу скинуть программу, которая автоматически за пару секунд ломает такой шифр.(ломаються любые пассы длиной до 23-х символов).
Не боитесь что этот Ваш Продавец окажеться шустрым малым, и получит пасс администратора. А далее скажем немного "подправит" цены или еще что-то себе на пользу.?
Вспомнилась фраза о "времени непуганных программистов начала 90-х".
П.с.: Asinkrit, спасибо тебе за ответы, сразу видно человека, который реально занимаеться коммерческими проектами.