С клавиатуры вводится целое положительное число. Определить, сколько в этом числе чётных цифр.(PASCAL)

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