Среднее арифметическое четных цифр - Turbo Pascal

var
  n, s, k: integer;
 
begin
  s := 0;
  k := 0;
  writeln('Введите число: ');
  readln(n);
  while n <> 0 do
  begin
    if (n mod 10) mod 2 = 0 then
    begin
      s := s + n mod 10;
      inc(k);
    end;
    n := n div 10;
  end;
  if k <> 0 then
    writeln('Среднее арифметическое четных цифр: ', s / k:0:2)
  else
    writeln('Четных цифр в числе нет.');
  readln;
end.