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

[-Даша-]

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

[volvo]

Любым способом отсюда: Разбиение на слова. Все способы. разбиваешь обе строки на слова, и потом проходишь по одному массиву (или списку, что ты там выберешь), и проверяешь, есть ли текущее слово во втором массиве (или списке). Если есть - то увеличиваешь счетчик, и переходишь к след. слову в первой последовательности...

[-Даша-]

function Count(Const s, w: String; start: Byte): Byte;
const
limits = ['.', ',', ';', '!', '?', ' '];
var
p: Byte;
begin
p:= Pos(w, Copy(s, start, 255));
if (start > length(s)) or (p = 0) then Count := 0
else if (((start + p - 2) = 0) or (s[ start + p - 2] in limits))
and (((start + p + length(w) - 2) = Length(s)) or (s[start + p + length(w) - 1] in limits))
then Count := 1 + Count(s, w, start + p + length(w) - 2) else Count := 0 + Count(s, w, start + p + length(w) - 2);
end;
begin
writeln(count('papa mama i doch mili mili papu s mamoi mama', 'mili',1));
readln;
end.

Вот программка, которая находит кол-во одинаковых слов. У меня такой вопрос: как её изменить так, чтобы:
1)можно было вводить строку не вот здесь: writeln(count('papa mama i doch mili mili papu s mamoi mama', 'mili',1)); , а во время выполнения самой программы
2)чтобы она искала не заданные слова, а искала слова сама и выводила их кол-во writeln(count('papa mama i doch mili mili papu s mamoi mama', 'mili',1));