Задача Паскаль Ввести натуральное число N, заменить все четные цифры в числе на нули

var
n, d: longint;
begin
write('n? ');
readln(n);
d := 1;
while (n div d) > 0 do begin
if not odd(n div d mod 10) then n := n div (d * 10) * (d * 10) + n mod d;
d := d * 10;
end;
write('n: ', n);
end.