Question

помогите!! паскаль
var m, k, i; integer;
mas; array [1..10] of integer;
begin
mas[1]:=12; mas[2]:=-5; mas[3]=-14;
mas [4]:=16; mas[5]:=-10; mas[6]:=-6; mas[7]:=8; mas[8]:=-10; mas[9]:=-15; mas[10]:=-8;
m:=0; k:=0
for i:=1 to 10 do
if (mas[i]<0) and (i mod 2=0) then k:=k+1
else if mas[i]<10 then m:=m+1
write(m+k)
end.