Дан одномерный массив целых чисел М

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