Подсчитать сумму всех частей кратных 2 , в массиве из 10

Program r;typemas =array [1..10] of real;Var M:=mas;i,k:real;beginfor i:=1 to 10 do read(m[i]);for i:=1 to 10 do m[i] mod 2 = 0 thenk:=m[i]for i:=1 to 10 doif (m[i]+k)and(m[i]mod 2 =0)thenk:=m[i]writeln('сумма частей массива',k,',кратный двум');end.

почему программка не работает??!

за ответ баллы

в чём ошибки?

ну где не верно?

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программка не работает, обновите её версию!
begin
  var a:=ArrRandom(10,1,30); a.Println;
  Writeln('Сумма четных чисел одинакова ',a.Where(x-gt;x.IsEven).Sum)
end.

Пример
27 11 27 26 20 17 26 20 3 25
Сумма четных чисел одинакова 92