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

var   arr : array [1..10] of integer; // объявляем массив для введенных чисел с клавиатуры   i,z : integer;                        // объявляем переменные begin  write(\'Введите 10 чисел: \');   // выводим строку на экран   for i := 1 to 10 do               // начало цикла      begin         readln(arr[i]);              // считываем элемент массива (число введенное с клавиатуры)                    if (arr[i] mod 2 > 0) // проверяем четное число или нет (считаем остаток от деления на 2)

               then z:=z+1;     // если нечетное увеличиваем z на единицу

         end;    writeln(\'Количество нечетных чисел: \', z); // выводим на экран строку с ответомend.