Дано натуральное число 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.