Ввести с клавиатуры 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 gt; 0) // проверяем четное число либо нет (считаем остаток от деления на 2)

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

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