Выложите, пожалуйста, листинг в текстовом варианте. Чтобы сохранить форматирование (отступы, лесенки и т.п.) сделайте это в Расширенном режиме, после копирования выделите листинг и нажмите кнопку Код (
#). А то, знаете, с FineReader'ом возиться как-то настроения нет.
P.S. А уж наворотили - конец света! Функции, процедуры, записи... А задачка-то на три строчки всего!