-=Dima=-, я горился, как же мне набирать базу для кросвордов (сам их не люблю, да внучка заставляет - кто вперёд!), а тут гостьD&W, спасибо, подсказал.
Вообще-то я собирался оставить в тексте только 33 маленькие русские буквы, но отложил на потом и, конечно, забыл, т. к. проверял на литературных текстах, там таких знаков не встретилось , это легко исправить - во вложенной схеме в *.sha/.
Одинаковые слова ищутся после сортировки и поэтому раположены рядом и удаляются за один проход по массиву.
Я не рассказал про последовательность работы с программкой: запуск программки - открытие источника (текстового файла) - на message "Открыть словарь?" ответить "Да" и открыть приложенный файл "dictionary.txt" (который и является, собственно, словарём) - после занесения новых слов в словарь можно открывать следующий ***.txt - по окончании работы не забыть сохранить словарь!
Над оптимизацией буду работать , спасибо за подсказки!