Строка из одинаковых слов Опции

[18192123]

Даны две строки, состоящие из слов. Получить 3-ю строку, состоящую из слов, которые содержаться в обеих строках.

Правильно ли я понимаю : сначала мне нужно разбить обе строки на слова, а потом их сравнивать? А вот каким способом?

[Ellsa]

то есть эта функция разделяет строку на слова...никуда их не записывая.....
а в циклах

while slovo (s1, n1) <> ' ' do inc (n1);
while slovo (s2, n2) <> ' ' do inc (n2);

не должно быть пробела...я вот понимаю наверно почему не должно быть пробела там....потому что у нас в функции изначально результат задан пробелом....но я не понимаю....символ '' это что за символ такой будет?ТО есть цикл должен идти пока результат не станет никаким...то есть пока слова не закончатся...чо-то я запуталась....
если писать пробел-прога не работает...это потому что в начале функции пробел-значение результата функции....
а цикл надо выполнить пока результат функции не закончится....
можно это написать как-то по-другому?
не просто ''....
я не понимаю что такое символ ''....

[Malice]

Функция возвращает строку, а не символ, а строка может быть пустой.
Т.е. ''-пустая строка.
По другому:

while length(slovo (s1, n1))>0 do 

Циклы эти считают колво слов в строке.