Массив из 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.