С клавиатуры вводится целое число. Найти сумму его четных цифр. нужно сделать так что-бы соответствовало 8 классу

var n,s:integer;

begin

repeat

write('Введите 4х значное число n=');

readln(n);

until (n>999)and(n<10000);

s:=0;

while n>0 do

 begin

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

  n:=n div 10;

 end;

write('Сумма четных цифр=',s);

end.