Среди простых чисел, не превосходящих N, найти такое, в двоичной записи которого максимальное число единиц

uses crt;
function prost(x:integer):boolean;
var  y:integer;
begin
x:=abs(x);
if x<2 then result:=false{0,1 не простое}
else if x=2 then result:=true{2 простое}
else if x mod 2=0 then result:=false{четные больше 2 не простые}
else
 begin
  result:=true;
  y:=3;
  while(y*y<=x)and result do
  if x mod y=0 then result:=false
  else inc(y,2);
 end;
end;
procedure edin(n:integer;var k:integer;var res:string);
const c:array [0..1] of char= ('0','1');
var m,d:integer;
begin
m:=n;
res:='';
k:=0;
while m<>0 do //пока введенное число не 0
 begin
  d:=m mod 2;//берем остаток от деления на 2(0 или 1)
  if d=1 then k:=k+1;//если 1 считаем
  res:=c[d]+res;//добавляем к итоговой строке в начало цифру из массива 0 или 1
  m:=m div 2;//делим число на 2
 end;
end;
 
var n,i,k,imx,mx:integer;
    s,smx:string;
begin
write('n=');
readln(n);
if n<2 then
 begin
  write('Нет простых чисел');
  exit
 end;
mx:=0;
for i:=1 to n do
if prost(i)then
 begin
  edin(i,k,s);
  if k>mx then
   begin
    mx:=k;
    imx:=i;
    smx:=s;
   end;
 end;
write('Максимальное число единиц в двоичной записи простого числа ',imx,'(',smx,')=',mx)
end.