FreePascal.ru

Дана последовательность слов; между соседними словами запятая, за последним
словом - точка. Напечатать все слова, встречающиеся в последовательности
по одному разу.

Пройдись циклом, распихай все слова в массив строк по строкам типа ansistring, а потом сравнивай строки. Строки одно типа можно сравнивать будто они числа. Те строки, что имеют не нулевую длину и дублируются, сделай нулевой длины - вот так можно S:=''; А после пройдись циклом и распечатай все ...

Дана последовательность слов; между соседними словами запятая, за последним
словом - точка. Напечатать все слова, встречающиеся в последовательности
по одному разу.