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

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.

program Project2;
uses Graph;
 
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;
   grDriver,grMode:integer;
   grPath:string;
   x,y: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;
 
   grDriver:=VGA;
   grMode:=VGAHi;
   grPath:='Bgi\';
InitGraph(grDriver,grMode,grPath);
y:=450;
x:=20;
Line(x,x,x,y);
MoveTo(x,y);
   for i:=1 to N do
    begin
      vrem:=ChisED(chis[i]);
      x:=x+20;
      LineTo(x,y);
      y:=y-vrem*10;
      LineTo(x,y);
      y:=y+vrem*10;
      MoveTo(x,y);
  end;
   x:=x+20;
   LineTo(x,y);
ReadLn;
CloseGraph;
end.