Нужно написать программу нахождения суммы всех четных элементов

const n=20;
var m:array[1..n] of integer;
    i,j,a,sct,sba,knct,kotr,kba:integer;
begin
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  m[i]:=-30+random(61);
  write(m[i]:4);
 end;
writeln;
write('Введите число для сравнения a=');
readln(a);
sct:=0;//сумма четных на четных местах
sba:=0;//сумма > a
knct:=0;//количество нечетных
kotr:=0;//количество отрицательных
kba:=0;//количество по модулю больше а
for i:=1 to n do
 begin
  if (m[i] mod 2=0)and(i mod 2=0)then inc(sct,m[i]);
  if m[i]>a then inc(sba,m[i]);
  if odd(m[i])then inc(knct);
  if m[i]<0 then inc(kotr);
  if abs(m[i])>abs(a) then inc(kba);
 end;
writeln('Сумма четных на четных местах=',sct);
writeln('Сумма элементов больших ',a,'=',sba);
writeln('Количество нечетных элементов=',knct);
writeln('Количество отрицательных элементов=',kotr);
writeln('Количество элементов по модулю больших ',a,'=',kba);
end.