Определить, чему равняется произведение цифр числа: четному числу или нечетному (использовать функцию)

uses crt;
function odd2(a:integer):boolean;
 var d,b:integer;
begin
d:=1;
 repeat
  b:=a mod 10;
   d:=d*b;
  a:=a div 10;
 until a=0;
  if odd(d) then
   odd2:=false
  else
   odd2:=true;
end;
var a:integer;
begin
 write('Ââåäèòå ÷èñëî :');
  readln(a);
 if odd2(a)=true then
  writeln('Ïðîèçâåäåíèå öèôð ÷èñëà ÷åòíîå ')
 else
  writeln('Ïðîèçâåäåíèå öèôð ÷èñëà íå÷åòíîå ');
end.

function odd2(a: integer): boolean;
var d :integer;
begin
  d:=1;
  repeat
    d := d * a mod 10;
    a := a div 10;
  until a = 0;
  odd2 := odd(d)
end;
var a: integer;
begin
  write('Введите число: ');
  readln(a);
  if odd2(a)
    then writeln('Произведение цифр числа нечётное')
    else writeln('Произведение цифр числа чётное');
  readln
end.

Var
  i : Integer;
 
Function Odd2(n : Longint) : Boolean; {true - четное}
Begin
  If n>0 then Odd2:=(not Odd(n mod 10)) or Odd2(n div 10) else Odd2:=False;
end;
 
Begin
  For i:=10 to 200 do Writeln(i,Odd2(i):8);
end.