INTRODUCTION Give some general information about the film (title, type
of film, leading actors, director). Use phrases like:
It's a comedy / an action film/ a thriller, etc.
• stars as... in this film.
...plays/has the leading role.
The role of... is played by...​

Большинство поисковых систем поддерживает три основных типа поиска информации:

1 - Поиск по любому из слов /

Результат такого поиска большой список страниц, в каждой из них будет присутствовать, как минимум одно ключевое слово.

2 - Поиск по всем словам /

Каждая страница из такого поиска будет включать в себя все слова, но в рандомной очередности.

3 - Поиск точно по фразе /

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

Картошка (Поиск по любому из слов)

Как жарить картофель (Точно по фразе)

Купить картофель оптом у фермера дешево (Поиск по всем словам)

Личность Enjoykin (Точно по фразе)

Ромашка (Поиск по любому из слов)

uses crt;
var a, b, c, n, i, j :integer;   
s :array [1..10000] of integer;
begin
   clrscr;
   writeln ('Vvedite razmer masiva');
   read (n);
   writeln  ('Vvedite chislo X');
   read (a);
   for i:=1 to n do 
   begin 
      writeln ('Vvedit s[', i, '] element'); 
      read (s[i]); 
   end;
   for i:=1 to n do 
      for j:=1 to n-1 do 
         if s[j]<s[j+1] then   
         begin   
            b:=s[j];   
            s[j]:=s[j+1];   
            s[j+1]:=b;   
         end;
   for i:=1 to n do 
   begin 
      write (s[i], ' '); 
      if s[i]=a then inc (c); 
   end;
writeln;
if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');
end.

P.S. Надеюсь на благодарность и лучший ответ.