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

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