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

program changeNum;var num:string; ci:byte;begin readln(num); for ci:=1 to ord(num[0]) do  if (ord(num[ci])-48) mod 2=0 then num[ci]:='0'; writeln;  write(num); readln;end.