блок-схема

program binnums;
type IArr=array[0..8] of integer;
 
function Convert(const digit:integer):IArr;
var s,i:integer;
    a:IArr;
    b:IArr;
begin
 for i:=0 to 8 do
 begin
   a[i]:=0;
   b[i]:=0;
 end;
 s:=digit;
 i:=0;
    while s>=1 do
     begin
      a[i]:=(s mod 2);
      s:=(s div 2);
      i:=i+1;
     end;
  for i:=8 downto 0 do
    b[8-i]:=a[i];
  result:=b;
end;
 
function CountZ(const a:IArr):integer;
var sum,i:integer;
begin
  sum:=0;
  for i:=0 to 8 do
    if (a[i]=0) then inc(sum);
  result:=sum;
end;
 
procedure GenFile(const name:string;const size:integer);
var f:text;
    k,j:integer;
begin
  assign(f,name);
  rewrite(f);
  for j:=0 to size do
    writeln(f,Random(20)+1);
  close(f);
end;
 
procedure CountZeros(const name,dest:string);
var s,d:text;
    k,j:integer;
begin
  assign(s,name);
  assign(d,dest);
  reset(s);
  rewrite(d);
  k:=1;
  j:=0;
  while not eof(s) do
  begin
    readln(s,j);
    writeln(d,k,':',CountZ(Convert(j)));
    inc(k);
  end;
  close(s);
  close(d);
end;
 
 
var i:integer;
    res:IArr;
begin
  GenFile('C:\Documents and Settings\student\Мои документы\Nums.txt',20);
  CountZeros('C:\Documents and Settings\student\Мои документы\Nums.txt','C:\Documents and Settings\student\Мои документы\Nums1.txt') ;
end.