Пользователь вводит пятизначное число,необходимо составить обратное число,заменив четные значения разрядов на нечетные и наоборот паскаль

var

   n, m: longint;

   a: byte;

begin

   readln(n);

   m := 0;

   while n>0 do begin

       a := n mod 10;

       n := n div 10;

       m := m*10 + a;

   end;

   writeln(m);

readln;

end.