Дано трехзначное число а,если вторая цифра числа четная,то ее заменить на ноль

Program z;
var n,a,b,c:word;
begin
writeln('Введите число'); readln(n);
a:=n mod 10;
n:= n div 10;
b:= n mod 10;
n:= n div 10;
c:=n;
if b mod 2 = 0 then b:=0;
writeln(c,b,a); end.