Поиск элемента в упорядоченном массиве

program 20_12;
uses crt;
const
N=10;
var
  X: array[1..N] of Integer;
  i, j, s, a,k, control, index: Integer;
 
begin
   Randomize;
  Writeln('массив');
  For i:=1 TO N DO
  begin
    X[i]:=i+random(100);                         {Задаём случайные числа}
  end;
  Writeln;
 
  For i:=1 TO N DO
  begin
    Write(' X[',i,']=',X[i]);                   {Выводим массив}
  end;
  Writeln;
  Writeln;
 
  // Сортировка первой половины по возрастанию
  for i := 1 to n div 2 do
    for j := i+1 to n div 2 do
      if x[i] > x[j] then
      begin
        s := x[i];
        x[i] := x[j];
        x[j] := s;
      end;
 
 
  // Сортировка второй половины по убыванию
   for i := n div 2 + 1 to n do
    for j := i+1 to n do
      if x[i] < x[j] then
      begin
        s := x[i];
        x[i] := x[j];
        x[j] := s;
      end;
      Writeln;
      
 Writeln('Отсортированный массив:');
 For i:=1 TO N DO
 Write(' X[',i,']=',X[i]:4);
  Writeln;
 
  Write('Введите контрольное число:');
 readln(control);
  index := -1;
  for i := 1 to n do
  begin
    if x [i] = control then
    begin
      index := i;
      break;
    end;
  end;
 
 
 
if index <> -1 then
     writeln('Число ', control, ' найдено на позиции ', index)
     else
    writeln('число ', control, ' не найдено');
 
end.

p:=1; q:=n;
     while p<q do
       begin
        s:=(p+q) div 2;
        if a[s]<     then p:=s+1
                  else q:=s;
       end;

p:=1; q:=n div 2;
while p<q do begin
  s:=(p+q) div 2;
  if a[s]<t then p:=s+1 else q:=s;
end;
if a[p]<>t then begin
  p:=n div 2+1; q:=n;
  while p<q do begin
    s:=(p+q) div 2;
    if a[s]>t then p:=s+1 else q:=s;
  end;
end;
if a[p]=t 
then WriteLn(t,' найдено в позиции ',p)
else WriteLn(t,' НЕ найдено');