чо элемента х в массиве нет??

Дано целое число х и массив a[1..n], отсортированных в порядке неубывания чисел, т.е. для любого k: 1<=1<=n: a[k-1] < a[k]. Найти такое :, что a[i]=x или сообщить, чо элемента х в массиве нет!!

const
   N = 10;
   
var
   a: array [1..N] of integer;
   i: integer;
   x: integer;
   found: boolean;
   
begin
   {съэмулируем такой массив как у тебя в задании}
   for i:=1 to N do a[i]:=5*i+random(5);
   
   {выведем его на экран}
   for i:=1 to N do write(a[i]:4);
   writeln; {перевод строки}
   

   write('input x ');
   readln(x);
   
   found:=false;
   for i:=1 to N do begin
      if a[i]=x then begin
         found:=true;
         break;
      end;
   end;
   
   write('found ', x, '? ');
   if found then writeln('yes') else writeln('no');
end.

скачать рабочие исходники можно тут