вопрос, строки Опции

[-Даша-]

Ввести 2 строки (это я знаю как делать), найти кол-во слов (это тоже вроде умею) и
найти кол-во одинаковых слов (КАК?)

[Sozialist]

Можно использовать следующую структуру:

type
TWordCount=record
word:string;
count:integer;
end;
Var
Ms:array [1..n] of TWordCount;

Алгоритм:
Выделяем 1 слово, записываем в ms[i].word, inc(ms[i].count).
Выделяем 2 слово, если одно совпадает с каким нибудь ms[j].word, то делаем inc(ms[j].count), в противном случае делаем так же, как с первым словом.
В конце концов имеем массив записей, который считает кол-во всех слов. Если ms[i].count>1, то ms[i].word является повторяющимся словом с кол-вом повторений ms[i].count.
Может кто предложит более мощный вариант с меньшей затратой памяти, ибо я использовал ее безжалостно.