Помогите написать команду в Паскале и отладить её(полностью написать от Begin до End)

var n,s,k:integer;

begin

write ('Введите число: ');

readln(n);

while n>0 do

begin

if n mod 10 mod 2 = 0 then s:=s + n mod 10;

if n mod 10 > 5 then k:=k+1;

n:=n div 10

end;

writeln ('Сумма чётных цифр: ',s);

writeln ('Количество цифр больше 5 : ',k);

end.