Почему программка не работает????Program r;typemas =array [1..10] of real;Var

Почему программка не работает????
Program r;
type
mas =array [1..10] of real;
Var M:=mas;i,k:real;
begin
for i:=1 to 10 do
read(m[i]);
for i:=1 to 10 do m[i] mod 2 = 0 then
k:=m[i]
for i:=1 to 10 do
if (m[i]+k)and(m[i]mod 2 =0)then
k:=m[i]
writeln('сумма частей массива',k,',кратный двум');
end.