Ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)

var i, sum: integer;

a: array [1 ... 10] of integer;

begin

//ввод 10 чисел с клавиатуры в массив

writeln ('Введите 10 чисел');

for i:=1 to 10 do readln (a[i]);

sum:=0; / /обнуление суммы

//расчёт количества нечётных чисел в массиве

for i:=1 to 10 do if (a[i] mod 2=1) then sum:=sum+1;

//вывод

writeln ('Количество нечётных чисел: ', sum)

end.