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

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.