Помогите с процедурой поиска элементов, спасибо! Паскаль.

uses crt;
Var a,i,j,g,s_1: integer;
s: string;
begin
s_1:=0;
for i:= 25610 downto 1 do
a:= i mod 2;
str(a,s);
for j:= 0 to Length(s) do

Сколько существует натуральных чисел, меньших 25610, таких, что в записи каждого числа в двоичной
системе счисления будет равное количество единиц и значащих нулей. В ответе укажите целое число.