Дан одномерный массив...

Дан одномерный массив целых чисел М(12), определить количество и сумму нечетных чисел в массиве. Вывести результат и массив М. Срочно нужнапомощь!!!!!!

 

Uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m:=random(9)+1;
writeln(m);
if m mod 2<>0 then begin inc(k); s:=s+m; end;
end;
writeln;
writeln(k);
writeln(s);
end.