проблемма в коде на Pascal занющие люди прошу помогите !!!

вот код
program n_f;
var xa, ya, xb, yb, a, b: integer;
begin
readln(xa, ya);
readln(xb, yb);
a := abs(xa) + abs(ya);
b := abs(xb) + abs(yb);
if a mod 2 = 0 then
begin
writeln('Белое');
a := 1;
end
else
begin
writeln('Черное');
a := 0;
end;
if b mod 2 = 0 then
begin
writeln('Белое');
b := 1;
end
else
begin
writeln('Черное');
b := 0;
end;
if a = 1 and b = 1
then writeln('Поля одного цвета');
else writeln('Поля разных цветов')
readln.
end.
Вот задача
Поле шахматной доски определяется парой натуральных чисел каждое из которых не превосходит 8. Напишите программу, которая по введенным координатам двух полей (xa,ya) и (xb,yb) определяет являются ли эти поля полями одного цвета!