Указать то дробное число. которое в двоичном представлении имеет наибольшее число единиц среди чисел

program Project;
   function F (var v:real):integer;
    var i,l,u:integer;
    begin
    u:= 0;
     i:=1;
     repeat
         v:=v*2;
         l:=trunc(v);
           if l=1 then u:=u+1;
           i:=i+1;
     until i>6
     end;
 
var chis:array[1..6] of real;
    i,n,j,m:integer;
    max,v:real;
begin
 Write('введите количество чисел');
   ReadLn(n);
   for i:=1 to n do
    begin
      Write('введите ',i,' число');
      ReadLn(chis[i]);
    end;
    max:=0;
    i:=1;
      repeat
            begin
              if F(chis[i])>max then
                begin
                  m:=i;
                  max:=F(chis[i]);
                end;
            i:=i+1;
            end;
      until (i>n);
    Writeln (max);
 end.

uses crt;
const zn:string[2]='01'; {цифры в СС 2}
      t=6;{точность, сколько знаков после запятой}
function DecToBinTrunc(n:longint):string;{перевод целой части}
var s:string;
begin
s:='';
while n>0 do
 begin
  s:=zn[n mod 2+1]+s;
  n:=n div 2;
 end;
DecToBinTrunc:=s;
end;
function DecToBinFrac(x:real):string;{перевод дробной части}
var s:string;
    a:integer;
begin
s:='.';
while length(s)-1<t do
 begin
  x:=x*2;
  a:=trunc(x);
  s:=s+zn[a+1];
  x:=x-a;
 end;
DecToBinFrac:=s;
end;
var n,i,imax,kmax,k,j:integer;
    a,f,max:real;{число, его дробная часть и максимальное}
    c:integer;{целая часть}
    s2:string;{число в СС 2}
begin
write('Сколько чисел ввести n=');
readln(n);
writeln('Введите ',n,' чисел с дробной частью:');
kmax:=0;
imax:=0;
for i:=1 to n do
 begin
  readln(a);
  c:=trunc(a);
  f:=frac(a);
  s2:=DecToBinTrunc(c)+DecToBinFrac(f);
  writeln('=',s2);
  k:=0;
  for j:=1 to length(s2) do
  if s2[j]='1' then k:=k+1;
  if k>kmax then
   begin
    kmax:=k;
    max:=a;
    imax:=i;
   end;
 end;
write('Больше всего единиц в двоичной записи у числа ',max:0:3,' его номер=',imax);
end.