Значения элементов массива m(30) вводятся с клавиатуры. верно ли, что количество положительных элементов в массиве и их сумма четны.

Var
m:array[1..30] of integer;
i,n,s,q:integer;
begin
for i:=1 to 30 do
readln(m[i]);
for i:=1 to 30 do
if m[i] mod 2 = 0 then begin inc(q); s:=s+m[i]; end;
if (q mod 2 =0)  and (s mod 2=2)  then writeln('YES')
else writeln('NO')  
end.

Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN 
Writeln('Заполните массив: '); 
For i:=1 to n do
  begin 
  Readln(M[i]); 
  end; 
 s:=0; 
 For i:=1 to n do   
begin   
If (M[i] mod 2=0) then  
 begin 
  inc(k); 
 s:=s+M[i]; 
 end; 
 If (s mod 2=2) and (k mod 2=0) then 
  Writeln('Верно.')   
 else      Writeln('Не верно'); 
 end;
END.