Дано число а поменять это число двойным произведением если оно нечетное.

Дано число а поменять это число двойным твореньем если оно нечетное. Помогите пж скок сижу не могу сделать
Program Xz;
var a: integer;
begin;
writeln ('Введите число');
readln (a);
if a mod 2=0
then
writeln ('Число четное')
else
a:=a*2;
writeln ('Удвоенное нечетное число');
readln;
end.
вот тут где-то ошибка