Склавиатуры вводятся n чисел. определить кол-во нечетных и вывести на экран. паскаль

Program test;
var
a,b:integer;
begin
b:=0;
repeat
readln(a);
if a mod 2<>0 then b:b+1;
until a=0;
writeln(b);
end.

Если пишешь в Turbo Pascal перед " end." добавь строчку "readln;". 
Писал на скорую руку, проверь, перед тем, как сдавать учителю ;)
Чтобы вывел результат - нужно ввести с клавиатуры 0.