Степень двойки

if (x > 0) and ((x and Pred(x)) = 0) then
   ShowMessage(IntToStr(Trunc(Log2(x)))); // Uses Math

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..100] of integer;
 k,i,n,p:integer;
 s,s1:string;
begin
edit3.text:='';
edit4.text:='';
randomize;
  if edit1.text='' then
  begin
  Showmessage('Введите размерность');
  exit;
  end;
  n:=strtoint(edit1.Text);
  if n<=0 then
  begin
  Showmessage('Размерность не может быть отрицательной или равна 0');
  exit;
  end;
    for i:=1 to n do
  begin
    a[i]:=random(10);
    s:=s+inttostr(a[i])+' ';
    edit2.Text:=s;
    end;
    s:='';
 
for i:=1 to n do
 begin
  p:=2;
  k:=1;
  while p<a[i] do
  begin
  inc(k);
  p:=p*2;
  end;
  if p=a[i] then
   begin
    s1:=s+inttostr(k);
    s:=s+inttostr(a[i])+' ';
    edit3.Text:=s;
    edit4.Text:=s1;
   end;
 end;
end;

//функция вернет true если x натуральное число и является степенью двойки
function ispow2(const x: integer):boolean;
begin
  Result:=(x<>0) and (x and (x-1)=0);
end;
 
//функция вернет целую часть двоичного логарифма натурального числа x (delphi)
function log2(const x: integer):integer;
begin
  Result:=0;
  if x<>0 then begin
    while x and ($80000000 shr Result)=0 do inc(Result);
    Result:=31-Result;
  end;
end;
 
//asm
function log2(const x: integer):integer; assembler;
asm
  bsr eax, eax
end;