Ответ: http://www.cyberforum.ru/turbo-pascal/thread3