E keresésnél mit rontok el, hogy végtelen ciklus keletkezik? (bővebben lent)

A logaritmikus keresést szerettem volna megvalósítani, tömb esetén. Valamiért nem működik.

program kereses;

var

t:array[0..999] of longint;

elem,i,u,v:longint;

l:boolean;

begin

for i:=0 to high(t) do

t[i]:=i;

elem:=97;

u:=0;

v:=high(t);

l:=false;

while (u<=v) and (not l) do

begin

i:=u+v div 2;

if t[i]=elem then l:=true;

if t[i]<elem then u:=i+1;

if t[i]>elem then v:=i-1;

end;

writeln(i);

end.