Как посчитать кол-во единиц в числе. (Паскаль) (Паскаль)

Можно вот так

var
x : integer;
i : integer;
s : string;
begin
x := 12341; //ввод числа
str(x,s); //преобразуем в строку
for i := length(s) downto 1 do begin
if s[ i ] = '1' then writeln('found 1 in ',i);
end;
readln ;
end.