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

[Ellsa]

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


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



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

[ammaximus]

uses crt;
const s1:string[200] ='aaa bbb ccc ddd';
      s2:string[200] ='ccc';
var i,j,k:integer;
    s:string[200];
    a1:array[0..8] of string[200];
begin
 for j:=1 to length(s1) do
   if s1[j]<>' ' then
    a1[i]:=a1[i]+s1[j]
     else
      inc(i);
  k:=i;
 for j:=1 to length(s2) do
  if s2[j]<>' ' then
  s:=s+s2[j]
  else
  begin
   for i:=1 to k do
    if s=a1[i] then writeln(a1[i]);
  end;
write(s);
readkey;
end.

C использованием массива проще. Но можно и без него.