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.

const
  s1:string[200] ='aaa bbb ccc ddd';
  s2:string[200] ='ccc bbbred';

const
  s1: string = 'aaa bbb ccc ddd';
  s2: string = 'ccc bbbred';
var
  _word: string;
  b: boolean;
  i, p: integer;

begin
  i := 1;
  repeat
    _word := '';

    for b := false to true do
      while (i <= length(s1)) and ((s1[i] <> ' ') = b) do begin
        if b then begin
          _word := _word + s1[i];
        end;
        inc(i);
      end;

    p := pos(_word, s2);
    if (p > 0)
       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;
  until i > length(s1);

end.

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;