из текстового файл получить 5 наиболее часто встречающихся слов и число их появлений (на Delphi)

[sifa]

Рассматривается текстовый файл INPUT.TXT, содержащий одно или несколько
предложений на английском языке, разделенных символом "." (точка). В конце
последнего предложения ставится "." (точка). Предложения начинаются с
заглавной буквы. Слова разделяются одним или несколькими пробелами. Между
словами допускаются символы пунктуации: "," (запятая), ";" (точка с запятой),
":" (двоеточие), "-" (тире). Символ "'" (апостроф) считается частью слова.
Другие символы пунктуации не используются. Перенос слов с одной строки на
другую не допускается.
Предполагая, что любое слово текста состоит не более чем из 20 букв,
получить 5 наиболее часто встречающихся слов и число их появлений.
Результаты записать в текстовый файл OUTPUT.TXT.
Исходные данные корректны и их проверка не требуется.

Пример файла исходных данных INPUT . TXT

Humpty Dumpty sat on the wall;
Humpty Dumpty had a great fall.
All the King's horses and the King's men
Couldn't put Humpty Dumpty in his place again.

Пример выходного файла OUTPUT.TXT для нашего примера

Humpty 3
Dumpty 3
the 3
King's 2
sat 1

программа в delphi, нужно на завтра, заранее спасибо!


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[IT-man]

нужно на завтра

Зарплатама - нет! Работама - нет !

Нужна консоль или формы?

[sifa]

Честно не разбираюсь и не понимаю, скорее всего форма!

[sifa]

Поможете, очень необходимо к завтрашнему дню!

[ViktorR]

Возможно быстро не помогут, а лучше сделать.
Предлагаю алгоритм:

Шаг 1. В цикле читаем текстовый файл по строкам.
Посимвольно просматриваем строку и выделяем слова по заданным признакам.
Каждое выделенное слово помещаем в односвязный список, состоящий из узлов вида:

type pnode = ^node;
         node = record
            s: string[20]; {слово}
            n: integer;     {счетчик}
            p: pnode;      {указатель на следующий элемент}
         end;

Добавление в список делаем по правилу: Просматриваем список и сравниваем слово в узле с новым словом. Если нет совпадения с новым словом, то это слово добавляем в конец списка иначе, при совпадении, увеличиваем счетчик.

На выходе имеем список со словами и числом их повторений.

Шаг 2. Сортируем список по убыванию счётчика.

Шаг 3. Печатаем первые m элементов.
Литература: Т.А. Павловска, Программирование на ЯВУ. Паскаль.
Тут имеются почти готовые программки.

[Ester]

Не мог бы автор вопроса выложить свою программу если доделал?