Определить в каком из двух заданных чисел цифр, кратных z, больше

function MyOddProc(x: integer; y: integer): boolean;
begin
  if ((x mod y) = 0)
    then
      Result:= true
    else
      Result:= false;
end;
begin
  var Value:= ReadInteger('Введите число для проверки на кратность: ');
  var OddValue:= ReadInteger('Введите число проверки: ');
  var Sum:= 0;
  for var Counter:= 1 to Value.ToString().Length do
    begin
      if MyOddProc(integer.Parse(Value.ToString()[Counter]), OddValue)
        then
          Sum += 1;
    end;
  Writeln(Sum);
end.

var
  i,j:uint64;
  z:byte;
function Krat_z_count(i:uint64;z:byte):byte;
begin
  Result:=0;
  while i>0 do begin
    Result:=Result+ord(i mod 10 mod z=0);
    i:=i div 10;
  end;
end;  
begin
  write('Введите первое число:');readln(i);
  write('Введите второе число:');readln(j);
  write('z=');readln(z);
  if Krat_z_count(i,z)>Krat_z_count(j,z) then writeln('В первом числе цифр кратных ',z,' больше чем во втором') else
  if Krat_z_count(i,z)<Krat_z_count(j,z) then writeln('Во втором числе цифр кратных ',z,' больше чем в первом') else
  writeln('В обоих числах числе цифр кратных ',z,' поровну');
end.