Вданном целом числе 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.