Ввести с клавиатуры 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.