Помогите с информатикой что поменять в проге ниже чтобы показывало не количество цифр в числе а нечетное ( или четноe) количество

Var k : integer;

function kol(x: integer): integer;
var k: integer;
begin
k := 0;
repeat
x := x div 10;
inc(k)
until x = 0;
kol := k
end;
begin
write (k); readln (k);
writeln(k, 'kol ', kol(k));
end.

чтобы покозывало не количество цифр в числе а нечетное (четно)количество

не совсем понял что нужно после

readln (k);if kol(k) mod 2 = 0 then

Var k : integer;function kol(x: integer): integer;var k: integer;begink := 0;repeatx := x div 10;inc(k)until x = 0;kol := kend;beginreadln (k);if kol(k) mod 2 = 0 then begin  writeln('Чётное');endelse begin  writeln('Нечётное');end;end.