Дано целое 4-х разрядное число X. Разработать программу, которая вычисляет количество четных и нечетных цифр

uses School;
begin
  var a := Abs(ReadInteger).Digits;
  var c1 := a.Count(x -> (x>0) and Not odd(x));
  var c2 := a.Count(x -> (x>0) and odd(x));
  var c3 := a.Count(x -> x=0);
  if c1=0 then WriteLn('Чётных цифр нет') else WriteLn('Количество чётных цифр: ',c1);
  if c2=0 then WriteLn('Нечётных цифр нет') else WriteLn('Количество нечётных цифр: ',c2);
  if c3=0 then WriteLn('Цифры ноль в записи числа нет') else WriteLn('Количество цифры ноль: ',c3);
end.

## uses School;
var n := Abs(ReadInteger);    // ввести число и взять его модуль для защиты от дурака
var L := n.Digits;            // список цифр числа
var odds := L.Count(t -> t.IsOdd);   // количество нечетных цифр
var zeros := L.Count(t -> t = 0);    // количество нулей
var evens := L.Count - odds - zeros; // Количество четных цифр
Println(if evens = 0 then 'Чётных цифр нет' else $'Количество чётных цифр: {evens}');
Println(if odds = 0 then 'Нечётных цифр нет' else $'Количество нечётных цифр: {odds}');
Print(if zeros = 0 then 'Цифры ноль в записи числа нет' else $'Количество цифры ноль: {zeros}')