[Konrad]

Читал, и просто поражался...

AssignFile(F, 'paroli.txt');
Лучше назвать так: Paroli-zawufrovannue-XORom.txt.

Даже в страшном сне не могу представить, чтобы кто-то использовал шифрование "хоr".
Если кому интересно, могу скинуть программу, которая автоматически за пару секунд ломает такой шифр.(ломаються любые пассы длиной до 23-х символов).

Не боитесь что этот Ваш Продавец окажеться шустрым малым, и получит пасс администратора. А далее скажем немного "подправит" цены или еще что-то себе на пользу.?

Вспомнилась фраза о "времени непуганных программистов начала 90-х".

П.с.: Asinkrit, спасибо тебе за ответы, сразу видно человека, который реально занимаеться коммерческими проектами.