Даны два числа. Определить является ли наибольшие их них четным-Pascal(Паскаль)

Program chet;
Var a,b,max:integer;
Begin
  Readln (a);
  Readln (b);
  if a>b then max:=a else max:=b;
  if (max mod 2 = 0) then Writeln ('Максимальное значение четное') 
     else Writeln ('Максимальное значение нечетное');
End.