помогите решить задачу

[кирилл174]

Даша Пупырышкина изучает английский язык во втором классе. Ей задали домашнее задание: переписать английские слова, записанные строчными буквами, в тетрадь. Выполняя задание, она комментирует его. Даша произносит слово "Опять" каждый раз, когда пишет букву , которая ужевстречалась в слове раньше.
Составте программу (в Турбо Паскаль), которая по слову определяет: сколько раз Даша произнесет "Опять".
Примеры:
Исходное слово apple ответ 1 раз
исходное слово potato ответ 2 раза

Ваша программа должна
- запросить слово
- Подсчитать сколько раз, переписывая это слово , Даша произнесет "Опять" и вывести это число на экран. !

[BDA]

a: set of char;
...
a := [];
count := 0;
...
if s[i] in a then
  inc(count)
else
  a := a + [s[i]];
...
writeln(count);

Вам осталось объявить пару переменных, считать слово и написать цикл перебора всех букв в нем.