Uses
Crt;
CONST 
 MAXN=10;
VAR
 a:array[1..MAXN] of Longint;
 z:Longint;

Function Rec(l,r:longint):boolean;
Var
 b:Boolean;
 tmp:Longint;
Begin
 b:=false;
 tmp:=(l+r) div 2;
 if a[tmp]=z then 
 Begin
  rec:=true;
  Exit;

 End;
 If (a[tmp]>z) and (l<>tmp) then b:=b or rec(l,tmp-1);
  If (a[tmp]<z) and (r<>tmp) then b:=b or rec(tmp+1,r); 
   Rec:=b;
   End;

var
 i,s:Longint; 
BEGIN
ClrScr;
Writeln('Введите количество элементов массива');
 Read(z);
 Writeln('Введите элементы массива'); 
 For i:=1 to z do 
  Read(a[i]);
  Writeln('Введите число');
 Read(s); 
Writeln(rec(1,i)); 
ReadKey;
END. 

var { <--- я надеюсь здесь Var на const изменила? }
  arr: TArray = (1, 2, 3, 4, 5, 60, 70, 88, 99, 101);