дан некий файл, составляющие которого являются целыми числами. подсчитать количествотнулей,

PascalABC.NET
Программка считает число нулей стоящих на четных местах в строке, считая 1-ый элемент строчки нечетным.


var   
t : text;   
a,k,i : integer;  
begin 
assign (t,'File.txt'); 
reset (t); 
i := 0;  k := 0;   
While not Eof (t) do   
begin     
i := 0;     
While not Eoln (t) do     
begin       
read (t,a);       
if (a = 0) and (i = 1) then         
k := k +1;       
if i = 0 then         
i := 1       
else         
i := 0;     
end;     
readln (t);    
end;        
close (t);   
writeln (k); 
end.