Написать программу, подсчитывающую количество четных и нечетных цифр в четырехзначном числе. (в паскале с использованием цикла for)

program zz1;

var a, k, s, b, i:integer; / / задаем переменные целого типа

begin

write (' введите заданное четырехзначное число '); / / вводим число с клавиатуры

read (k);

for i:=1 to 4 do

begin

s:=k mod 10; / / получаем последнюю цифру

if s mod 2 = 0 then a:=a + 1; / / считаем четные цифры

if s mod 2 = 1 then b:=b + 1; / / считаем не четные цифры

k:=k div 10; / / отбрасываем ее из числа

end;

writeln (' количество четных цифр = ', a); / / выводим ответ

writeln (' количество не четных цифр = ', b);

end.