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