С клавиатуры вводится целое положительное число. Найти, сколько в этом числе

program calc1;
var a, sum, k, code: integer;
//a число, sum количество четных цифр,
//k позиция числа в числе, code известье об ошибке.
s, s1: string; // s строчка из цифр и s1 подстрока из цифры на позиции k.
begin
writeln(Введите целое число);
read(a); // ввод числа
str(a, s); // преобр. числа в строчку
sum:=0;
for i:integer:= 1 to length(s) do
begin
s1:= copy(s, i, 1); // выделение отдельной цифры
val(s1, k, Code); // преображенье числа-строки в число
if k mod 2 = 0 then sum:= sum + 1; // проверка на четность и подсчет четных цифр
end;
writeln(Число четных цифр одинаково , sum)
end.