Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . Вывести на экран, посчитать количество нечетных чисел

Const N = 20; Var i,k:integer; m:array [1..N] of integer; Begin        randomize;         for i:=1 to N do begin        m[i]:=random(101) - 50;        writeln(m[i]);        end;        for i:=1 to N do          if m[i] mod 2 <> 0 then                 inc(k);        writeln('Kol-vo netchetnih = ',k);         readln; end.