логарифмический поток

[Gy9vin]

чето у меня не получается с этим проверте пожалуйста

procedure TForm1.Button1Click(Sender: TObject);
var
i,n,j,z,r,l,p,m,find:integer;
a:array[1..5] of integer;
begin
randomize;
for i:=0 to 5 do

StringGrid1.Cells[i,0]:=inttostr(round(random(10)));
z:=strtoint(edit1.text);
find:=0;
l:=1;
p:=n;
while l<= p do
begin
m:=(l+p)div z;
   if a[m]=z then
   begin
          find:= 1;
          break
   end
     else
     if z > a[m] then
     l:= m+1
     else
     p:= m -1;
     end;
if find= 1 then
label1.Caption:='элемент найден'
else
label1.Caption:='элемент не найден'
end;