Найти все такие слова, в которых все буквы различны - Pascal

Формулировка задачи:

В данном тексте найти все такие слова, в которых все буквы различны. Словом в строке будем считать последовательность символов русского алфавита; слова отделяются друг от друга пробелами или знаками препинания. Регистр букв, не различать, то есть слова "Слово" и "сЛоВо" считать одинаковыми.Текст-это строка символов. Пример: Привет, этот теКст бЫл написан, для ПриМера. Результат: Привет, был, для.

Помогите пожалуйста с заданием, Срочно!!!!

Решение задачи: «Найти все такие слова, в которых все буквы различны»

Листинг программы

function LowerCase(s: String): String;
var i: Integer;
begin
  for i := 1 to Length(s) do
    case s[i] of
    'A'..'Z',#128..#143: Inc(s[i],32);
    #144..#159: Inc(s[i],80);
    #240: Inc(s[i]);
    end;
  LowerCase := s;
end;

Объяснение кода листинга программы

В данном коде объявлена функция LowerCase, которая принимает в качестве аргумента строку s. Внутри функции используется цикл for, который проходит по каждому символу строки s. В зависимости от того, является ли текущий символ заглавной буквой (от 'A' до 'Z') или цифрой (от 0 до 9), значение этого символа увеличивается на соответствующее количество. Если текущий символ является символом 'A'..'Z', то значение увеличивается на 32, если текущий символ является цифрой, то значение увеличивается на 80, а если текущий символ равен '2', то значение увеличивается на 1. После прохождения цикла, значение переменной s изменяется на новую строку, которая является копией исходной строки, но все символы в ней приведены к нижнему регистру. Таким образом, функция возвращает новую строку, в которой все символы приведены к нижнему регистру, а все буквы различны.