Проверить истинность высказывания: «Король за один ход может перейти с одного поля на другое»

Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8).

Program Boolean37;
Var
x1,y1,x2,y2:Integer;
Begin
WriteLn('Введите координаты первого поля: ');
ReadLn(x1,y1);
WriteLn('Введите координаты второго поля: ');
ReadLn(x2,y2);
WriteLn((Abs(x2 - x1) <= 1) And (Abs(y2 - y1) <= 1));
end.

автор: Sklyarov Sergej a.k.a. S9