Задание НА ПАСКАЛЕ в файле input.txt записаны числа Как узнать сколько их неизвестно. Найти количество нечетных среди них

var a,i:longint;
begin
assign(input,\'input.txt\');reset(input);
assign(output,\'output.txt\');rewrite(output);
while not eof do
begin
read(a);
if a mod 2<>0 then inc(i);
end;
write(i);
close(input);close(output);
end.