Из четырех заданных чисел, четные сложить, а нечетные вычесть» дело в том что, четные числа складывает, а нечетные считает не правильно — Pascal(Паскаль)

var
sch,rnch,i,a:integer;

begin

writeln('Введите 4 числа');
sch:=0;
rnch:=0;
for i:=1 to 4 do
 begin
  readln(a);
  if odd(a) then rnch:=rnch-a
  else sch:=sch+a;
 end;
writeln('Сумма четных=',sch);
write('Разность нечетных=',rnch);

end.