Описать процедуру, которая возвращает среднее арифметическое значение четных цифр, входящих в запись числа типа LongInt — Pascal(Паскаль)

uses crt;

procedure Sred(a: longint; var s: real);
var
  k: byte;
begin
  a := abs(a);
  k := 0;
  s := 0;
  while a > 0 do
  begin
    if (a mod 10) mod 2 = 0 then
    begin
      k := k + 1;
      s := s + a mod 10;
    end;
    a := a div 10;
  end;
  if k = 0 then
    writeln('В числе нет четных цифр')
  else
  begin
    s := s / k;
    writeln('Среднее арифметическое четных цифр=', s:0:1);
  end;
end;

var
  n: longint;
  sr: real;

begin
  clrscr;
  write('Введите целое число n=');
  readln(n);
  Sred(n, sr);
  readln

end.