Решить в паскаль! дана шахматная доска(8 на8 клеток). король стоит на клетке с координатой (x,y). определить, может ли король за один ход перейти на клетку с координатой ( x1,y1) координаты (x,y) (x1,y1) с клавиатуры

Координаты клеток - целые числа из диапазона от 1 до 8
var x,y,x1,y1:byte; b:boolean;
beginwriteln('x, y:');readln(x,y);
writeln('x1, y1:');readln(x1,y1);
b:=(abs(x1-x)=1)and(y1=y); //на 1 вертикали
b:=b or (abs(y1-y)=1)and(x1=x); //на 1 горизонтали
b:=b or (abs(x1-x)=1)and(abs(y1-y)=1);//рядом по диагонали
if b then writeln('Может') else writeln('Не может');
end.