Указать то число заданного множества целых чисел, в двоичном представлении которого больше всего единиц

program Project2;
 
function ChisED(el:integer):integer;
var a:array[1..1000] of integer;
    j,len,k,sum,vr:integer;
begin
{определим колличество цифр числа в двоичной системе}
   len:=-1;
     repeat
         vr:=1;
         len:=len+1;
          for k:=1 to len do
            vr:=vr*2;
     until vr>el;
{уже определили колличество цифр числа в двоичной системе}
{записываем двоичное число в массив А}
   for j:=len downto 1 do
    begin
       vr:=el;
       a[j]:=vr mod 2;
       el:=el div 2;
    end;           
{записали двоичное число в массив А}
{узнаём число единиц}
  sum:=0;
   for j:=1 to len do
      if a[j]=1 then
       sum:=sum+1;
{уже узнали число единиц}
  ChisED:=sum;
end;
 
 
var chis:array[1..100] of integer;
    max,vrem,i,N:integer;
begin
   Write('N=');
   ReadLn(N);
{заносим значения в массив}
   for i:=1 to N do
    begin
      Write('chis[',i,']=');
      ReadLn(chis[i]);
    end;
{закончили вносить значения в массив}
{проверка на максимум кол-ва единиц}
  max:=-1;
   for i:=1 to N do
    begin
      vrem:=ChisED(chis[i]);
      if max<vrem then
        max:=vrem;
    end;
{проверка на максимум кол-ва единиц}
Write('max=',max);
ReadLn;
end.