[Pascal] Найти слова, содержащие не менее трех букв из первого и указать после них найденные буквы.

[suigintou]

Помогите сделать последнее задание на паскале или хотя бы подскажите, каким образом это можно реализовать. Условие:

В текстовом файле input.txt записан русский многострочный текст. Найти в тексте слова, содержащие не менее трех букв из первого слова текста, записать их заглавными буквами и указать после каждого такого слова в скобках найденные буквы. Полученный текст записать в файл output.txt. Весь текст, кроме найденных слов, должен остаться неизменным, включая и знаки препинания.

Мне сказали, что примерно это делается так: файл ввода считывается посимвольно, если символ находится в алфавите (русские буквы + знаки препинания), то этот символ сразу же пишется в файл вывода. При этом по ходу надо выделять слова для проверки на соответствие условию, и в скобочках после нужного слова записывать совпавшие буквы). Главная проблема в том, что при посимвольном считывании я даже не знаю, как выделить буквы из первого слова. Поэтому я считываю каждую строку текста, разбираю его на слова, которые добавляю в массив, и т.д. Программа вроде как выдает какой-то результат, но я очень сомневаюсь в его правильности. Вот моя программа: http://ideone.com/eIQIqO Помогите сделать ее так, как мне порекомендовали. Думаю, это самый универсальный способ, такая программа обработает любой текст со строками любой длины.

[suigintou]

наверх****