Количество четных цифр в тексте

program recursiya;
uses crt;
var n : integer;
    s : string;
function Digits: integer;
var ch: char;
begin
  read(ch);
  if ch <> '&' then
    digits := digits + byte(ch in ['1', '3', '5', '7', '9'])
  else begin
    digits := 0; exit
  end;
 
  if ch in ['a' .. 'z'] then write(ch);
end;
 
begin
  readln(s);
  n := Digits;
  writeln;
  writeln('count = ', n);
end.

program recursiya;
uses crt;
var n : integer;
    s : string;
function Digits: integer;
var ch: char;
begin
  ch := readkey;
  if ch <> '&' then begin
                         if ch in ['0', '2', '4', '6', '8'] then
                              digits := digits + 1;
                    end
  else begin
            exit
       end;
  if upcase(ch) in ['A' .. 'Z'] then write(ch);
end;
begin
  readln(s);
  n := Digits;
  writeln;
  writeln('count = ', n);
end.

var
  s : String;
  n : integer;
 
Procedure Digits;
Begin
  If Length(s)>0 then
  Begin
    if s[Length(s)] in ['0', '2', '4', '6', '8'] then Inc(n)
      else if upcase(s[Length(s)]) in ['A' .. 'Z'] then write(s[Length(s)]);
    Delete(s,Length(s),1);
    Digits;
  End;      
end;
 
begin
  n:=0;
  readln(s);
  writeln;
  Digits;
  Writeln;
  writeln('count = ', n);
end.