Введите с клавиатуры 5значное число и посчитайте произведение нечетных цифр числа

Program tak;
var a,b,c,d:integer;
begin writeln('введите пятизначное число '); 
readln(a); 
d:=1;
 while (a<>0) do 
begin 
 b:=a mod 10; 
if (b mod 2 <> 0) then
  d:=d*b; 
 a:=a div 10; 
end; 
writeln(d);
end.

Var ab, sum: integer;
a: array[1..5] of integer;
begin
readln (ab);
a[1]:= ab div 10000;
a[2]:= ab mod 10000 div 1000;
a[3]:= ab mod 1000 div 100;
a[4]:= ab mod 100 div 10;
a[5]:= ab mod 10;
for i: integer:= 1 to 5 do
if a[i] mod 2= 1 
then sum+=a[i];
writeln (sum);
end.