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

PascalABC.NETПрограмма считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.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.