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

program change;

var

a: string;

b, c: integer;

begin

readln (a);

c : = Length (a);

for b:=1 to c do

begin

if ord (a[b]) mod 2 = 0 then

a[b] : = '0';

end;

writeln (a);

end.

Код написан на языке Паскаль. Сначала считываем строку (само число), находим длину строки. Затем смотрим, делится ли каждое из цифр числа без остатка на 2 (является ли чётным), если да, то заменяем эту цифру на 0. Выводим получившееся число.