Нужен хелп! 3 слова найти буквы встречающиеся в 1 и 3

[merv]

Здравствуйте нужна помощь с программкой на паскале, я ее сам немного сделал, но она работает не совсем как надо. Вот задание:
Пусть даны три слова. Необходимо определить буквы, которые встречаются только в первом и третьем слове.
у меня получилось так: 1-keks
2-rama
3-koks выводит к к s но если поменять последовательность ввода буква, то есть 1-keks 3-skek вроде как все буквы встречаются он не выводит(.
Буду благодарен за помощь!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
я разобрался с тем чтоб выводил буквы из слова использовав цикл в цикле ток теперь проблема как удалить буквы повторяющиеся несльколько раз
кекс кокс выводит ккккс...
помогите (

[Naeel Maqsudov]

См. 13-ю строчку программы начиная с позиции 15....


А если серьезно, то в чём надо помочь-то?
Где тот самый код, который надо исправить?

[Хыиуду]

var c: char;
for c:='a' to 'z' do
if (pos(c, word1)>0) and (pos(c,word2)=0) and (pos(c, word3)>0) then write(c);

[merv]

var c: char;
for c:='a' to 'z' do
if (pos(c, word1)>0) and (pos(c,word2)=0) and (pos(c, word3)>0) then write(c);

cпасибо, ща проверим