Сколько единиц в двоичной записи числа 1027

Сколько единиц в двоичной записи числа 1027

Var
n, m, i, j : longint;
matr: array of array of longint;
begin
read (n, m);
setLength (matr, n);
for i:=0 to m-1 do
setLength (matr[i], m);
for i:=0 to m-1 do matr[0, i]:=1;
for i:=0 to n-1 do matr[i, 0]:=1;

for i:=1 to n-1 do
for j:=1 to m-1 do
matr [i, j]:=matr [i-1, j]+matr [i, j-1];

for i:=0 to n-1 do
begin
for j:=0 to m-1 do write (matr[i, j]);
writeln ();
end;