ПРОГРАММА НА СТРОКИ(pascal)

[SHAURMA]

В файле f1 набран текст. Вывести все слова,которые встречаются в тексте только 2 раза. Результат вывести в файл z1.Программу нужно оформить как процедуру.Ни как не получается пробывал с счетчиком не получилось.Помогите курсовую сдавать на днях

[Sheka]

работает до 2000 слов длиной до 20 символов.
с русской расскладкой возникают маленькие проблемы, английская 100пудово работает.