2 строки файла, повторяющиеся слова Опции

[Ellsa]

Здравствуйте.У меня такое вот задание.....
Даны две строки текста.Вывести слова,присутствующие в каждой строке.


По идее это элементарно..но я не могу вообще ничего написать!Особенно возникает сложность с написанием куска,где мы переходим на вторую строку,чтоб сравнивать с первой....вообще не понимаю,как это осуществить...если есть какие-нибудь мысли,поделитесь пожалуйста....



я обрыла поиск весь....находила только повторяющиеся слова в одной строке или символы....это сами понимаете...не то....

[Ellsa]

боюсь,что мне сейчас не понять всех мудренностей последней программы....спасибо,что откликнулись.Но я ничерта не могу понять...

and
       (
         (p = 1) or ((p > 1) and (s2[p - 1] = ' '))
       )
       and
       (
         (p + length(_word) - 1 = length(s2)) or
         ((p + length(_word) - 1 < length(s2)) and (s2[p + length(_word)] = ' '))
       )
       then begin
         writeln('word: ', _word, ' exists in s1 & s2 ...');
       end;

вообще непонятно....