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

Программа: var b4: array [1..20] of longint;       i,min,n: longint; begin   read (n);   min: =100000;   n: =1;   for i: =1 to n do read (b4[i]);   for i: =1 to n do if b4[i]< min then begin min: =b4[i];                                                           n: =i;                                                 end;   write (min,' ',n); end.   блок  схему не прикрепить, извини.

Const n=10; var  i,k,min,max: integer;   x,y: array[1..n]of integer;   z: array[1..2*n]of integer; function four(n: integer): string; var s: string; beginrepeat  s: =s+inttostr(n mod 4);   n: =n div 4;   until n=0; result: =reversestring(s); end; beginfor i: =1 to n do  begin  x[i]: =random(-10,10);   y[i]: =random(-10,10);   if (x[i] mod 2=0) and (x[i]> 0) then    begin    k: =k+1;     z[k]: =x[i];     if k=1 then      begin      min: =z[1];       max: =z[1];       end;     if z[k]> max then max: =z[k];     if z[k]< min then min: =z[k];     end;   if (y[i] mod 2=0) and (y[i]> 0) then    begin    k: =k+1;     z[k]: =y[i];     if k=1 then      begin      min: =z[1];       max: =z[1];       end;     if z[k]> max then max: =z[k];     if z[k]< min then min: =z[k];     end;   end; write('массив x: '); for i: =1 to n do write(x[i]: 4); writeln; write('массив y: ');   for i: =1 to n do write(y[i]: 4); writeln; write('массив z: ');   for i: =1 to k do write(z[i]: 4); writeln; write('измененный массив z: '); for i: =1 to k do    begin    if z[i]=min then z[i]: =max      else      if z[i]=max then z[i]: =min;     write(z[i]: 4);     end; writeln; write('массив z по основанию 4: ');   for i: =1 to k do    write(four(z[i]): 4); end.