Дано натуральное число N. Найти сумму и количество чётных цифр. (На Паскале)

var   n:longint;   k,sum:integer; begin   write ('N = ');   readln(n);   k:=0;   sum:=0;   while n <> 0 do     begin        if (n mod 10) mod 2 = 0 then          begin             k:=k+1;             sum:=sum+(n mod 10);          end;        n:=n div 10;     end;   writeln ('Summa: ',sum);   writeln ('Kol-vo: ',k);   readln; end.