В одном массиве произвольных чисел найдите количество нечетных элементов (Паскаль)

const   n=20; var   a:array[1..n] of integer;   i,s:integer; begin   writeln('Исходный массив');   s:=0;   Randomize;   for i:=1 to n do begin     a[i]:=Random(100)-50;     if a[i] mod 2 <> 0 then s:=s+1;     write(a[i]:5)   end;   writeln;   writeln('Количество нечетных элементов равно ',s) end. Тестовое решение: Исходный массив   -10  -26   -5   36  -48   41  -10    5   46   -1   -5    1   19  -11  -10   31    9  -31   -4  -40 Количество нечетных элементов равно 11