Типизированный файл, Количество нечетных удвоенных компонентов Опции

[Alla]

Вот программа:

Код

program test;
uses crt;

const
k=7;

var
g : file of integer;
n, c, i, s, m : integer;
begin
clrscr;
c:=0;
assign(g,'file1.txt');
rewrite(g);
writeln('Enter components: ');
for i:=1 to k do
  begin
  readln(s);
  write(g, s)
end;
close(g);
reset(g);
while not eof(g) do
begin
  read(g,n);
  if n mod 2 = 0 then
  m:=n div 2;
  if odd(m) then
    inc(c);
   end;
writeln;
writeln('Result: ');
writeln(c);
readln;
end.

Вроде бы все OK, но работает почему-то через раз.
К примеру вводим последовательность 6777777 и видим результат 7, а должен быть 1
Вводим 1111168 получаем 1, тут все OK
Помогите разобраться пожалуйста!