Нужно сделать pascal нужно посчитать количество единичных битов числа 14

Var

n, count: byte;

begin

readln(n);

count := 0;

count := count + n mod 2;

n := n div 2;

count := count + n mod 2;

n := n div 2;

count := count + n mod 2;

n := n div 2;

count := count + n;

writeln(count)

end.