Pascal дано натуральне число n. a) скільки цифр в числі n? b) скільки парних цифр в числі n

Var n:String;
var count:Integer;
var a:array of char;
begin
WriteLn('Введите число n:');
Read(n);
a:= n.ToCharArray();
for var i:= 0 to a.Length-1 do
if strtoint(a[i]) mod 2 = 0 then
count+= 1;
WriteLn('Кол-во цифр в числе: '+a.Length);
WriteLn('Кол-во чётных цифр в числе: '+count);
end.