Ввести два числа, если они оба четные, найти наибольшее из них. pascal

Var a,b:integer; 
begin
writeln('Введите два числа');
readln(a,b);if (a mod 2=0) and (b mod 2 =0) then
if a>b then write(a) else write (b)
end.