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

[-Даша-]

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

[Sozialist]

2 требование разрушает данный тобой код. Еще раз см. сообщения номер 2 и 4. Это то, что тебе нужно.
А вводить строку во время программы просто:

Var
st:string;
Begin
   readln(st);
   writeln(count(st,1));
End.

Если этого не знаешь, то как собираешься решать задачу? Давай читай теорию.