Помогите найти решение.

var x, L, M:integer;
begin
 readln(x);
 L:=0; M:=0;
while x > 0 do begin 
 L:= L+1;
  if x mod 2 = 0 then
   M:= M+X mod 10;
  x:=x div 10;
 end;
 writeln(L); write(M);
end.

var x, L, M:integer;
begin
 readln(x);{считываем число}
 {обнуляем переменные цифр числа и суммы четных цифр, важно проинициализировать эти переменные}
 L:=0; M:=0;
(*чтобы посчитать кол-во цифр в числе, нужно узнать, сколько раз данное число можно
разделить нацело на десять*)
while x<>0 do{пока число не равно нулю}
  begin
  {каждую итерацию цикла увеличиваем переменную L на 1}
  L:= L+1;{т.о. в счетчике будет содержать кол-во раз - сколько x разделился нацело на 10}
  {результат выражения x mod 10 в каждой итерации выдает нам крайнюю правую цифру числа x}
  if x mod 10 mod 2 = 0 then{проверяем данную цифру на четность}
   M:= M+X mod 10;{если цифра оказалась четной, добавляем ее значение в сумму четных цифр числа}
  x:=x div 10;{делим число нацело на 10}
 end;
 writeln(L); write(M);
end.