Склавиатуры вводятся два символа. определить четная ли сумма их кодов? ( паскаль)

Var c1,c2:char;
begin
readln(c1,c2);
if odd(ord(c1)+ord(c2))
 then writeln('Сумма кодов нечётна')
 else writeln('Сумма кодов чётна');
end.

Пример:
AB
Сумма кодов нечётна