Она у меня работает, но не так как надо, ее надо переделать. Помогите плиз.
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.