Одна программа. две задачи . три модуля. Ошибка., Полный код большой программы.одна маленькая ошибка. Опции

[student___]

Здравствуйте. Есть программа, решающие такие две задачи. 1. Указать относительную частотувстречаемости каждого символа в тексте. вывести соответствующую диаграмму(при помощи модуля graph) (знаки препинания не учитываем)2. Найти все слова перевертыши. Задача решаются следующим образом. с помощью модуля Crt появляется на экране меню, с выбором как вводить данные. 1. с клавиатуры. 2. из файла. далее после ввода данных появляется меню с выбором программы: 1.относительная частота. 2. слова перевертыши. далее выполняется либо первая либо вторая задача. затем появляется меню с пунктами :"сохранить решение в файл" или "вывести на экран". код задач находятся в модуле slova и оформлены в виде процедур. код меню находится в модуле modulmenu. ну и конечно основная программа к которой подключены все модули и и процедуры.

проблема вот такая. задача про слова перевертыши работает отлично, и на вводе текста из файла и склавиатуры, и на выводе данных. но первая задача, про относительную частоту работает очень странно...диаграммы выводит какие-то непонятные данные , а когда появляется меню вывода данных то там вместо пунктов "на экран" и "в файл" показывает полную чушь.

понимаю что разбираться в чужом коде это самая неблагодарная в мире работа, но я очень прошу помощи.это очень важная работа.

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