Нужна функция в паскале для нахождения количестава : 1)цифр числа 2)четных цифр числа 3)нечетных цифр числа

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

function KD(n:int64):=n.ToString.Count;

function KED(n:int64):=n.ToString.Where(d->Pos(d,'02468')>0).Count;

function KOD(n:int64):=n.ToString.Where(d->Pos(d,'13579')>0).Count;

begin
  var n:int64; Write('n='); Read(n);
  Writeln('Количество цифр в числе ',KD(n));
  Writeln('Количество четных цифр в числе ',KED(n));
  Writeln('Количество нечетных цифр в числе ',KOD(n));
end.