Перемена местами букв в слове и поиск совпадений в словаре - Pascal

  1. С горем пополам написал код для перестановки букв в введенном слове. Как сделать поиск полученных вариантов в словаре слов? Словарь русских слов в тхт формате. Например: ввожу слово beer Выдает варинты: beer bere bree eber ebre eebr eerb erbe ereb rbee rebe reeb. Нужно проверить есть ли какой нибудь вариант в словаре.

textual

Код:

const DictName='dict-ru.txt';
function DictFind(const s: String): Boolean;
var f: Text; t: String;
begin
  Assign(f,DictName); Reset(f); t:='';
  while not SeekEoF(f) and (t<s) do ReadLn(f,t);
  Close(f);
  DictFind:=t=s;
end;

Похожие ответы

Нашли ошибку?
Развитие проекта
Яндекс.Метрика