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

Предыдущий
вопрос Следующий
вопрос

program ReplaceEvenDigits;
var
N, reversedN, digit, newN: integer;
begin
write('Enter a number: ');
readln(N);

reversedN := 0;
newN := 0;

while N <> 0 do
begin
digit := N mod 10;
N := N div 10;

end;

while reversedN <> 0 do
begin
digit := reversedN mod 10;
reversedN := reversedN div 10;

end;

writeln('Number with even digits replaced by zeros: ', newN);
end.