ABCpaskal: С клавиатуры вводится строка, состоящая из букв и цифр

Uses crt; var s1: string; s2: char; k,y,x: integer; begin readln (s1); k: =0; for x: =1 to length (s1) do begin s2: =s1[x]; if (ord (s2) <= 57) and (ord (s2) >=48) then if ord (s2) mod 2=0 then inc (y); end; writeln (y); end.