помогите пожалуйста решить задачу "Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапозоне от 1 до 10 и находит сумму элементов с четными значениями и количество элементов с нечетными значениями

program NekitZor;constn=10;var a:array[1..n] of integer;i,sum,sam:integer;beginrandomize;for i:=1 to n doa[i]:=random(99)-25;for i:=1 to n do write(a[i],'   ');beginsum:=0;for i:=1 to n doif a[i] mod 2 = 0 then sum:=sum+a[i]else sam:=sam+a[i];end;writeln();writeln('Сумма четных елементов = ',sum);writeln('Сумма не четных елементов=',sam);end.