[Savant]

E-mail, при всем уважении к Вам, но Вы не вправе требовать что-либо от кого-либо из участников форума, т.к. их помощь предоставляется как акт доброй воли и в принципе безвозмездно.

зы: текст программы я Вам сегодня на работе перевел. В архиве 2 файла, один raw.pas - просто ручной (поэтому возможны незапланированные ошибки) перегон cpp->pas, другой pas.pas - немного "причесанный" вариант. Работать работает, а уж насколько правильно - судить Вам.

зы2: проверял на Turbo Pascal 7.1 , бинарник в комплекте.