Плиз не получаеться прога,помогите написать а Free Pascal

Доброго времени суток.

А зачем здесь остатки от деления на 10? Нужно на 2.

S := 0;
Write('Сумма цифр в двоичном представлении числа', N, ' равна ');
while N > 0 do begin
S := S + N mod 2;
N := N div 2;
end;
WriteLn(S);

Удачи!