Можно ли одним ходом слона попасть с поля (k, l) на поле (m, n)

uses 
    crt ;
var 
c :char ;
a, b, l , d : byte ;
begin
  while true do 
   begin
        
    repeat
     write('Введите начальные координаты слона: ');
     readln (a,b);
     if ((a >= 1)and(a <= 8))and((b >= 1)and(b <= 8)) then break 
      else 
       writeln('Ошибка ! Проверте введенные значения , координаты лежат в промежутке от 1 до 8');
    until false;
    
    repeat
     write('Введите произвольные координаты слона: ');
     readln (l,d);
     if ((l >= 1)and(l <= 8))and((d >= 1)and(d <= 8)) then break 
      else 
       writeln('Ошибка ! Проверте введенные значения , координаты лежат в промежутке от 1 до 8');
    until false;
    
    if  (abs(a - l) = abs(b - d)) then 
    writeln ('мы сможем за один ход попасть из (',a,',',b,') в (',l, ',',d,')')
     else
      begin
       writeln ('мы не сможем за один ход попасть из (',a,',',b,') в (',l, ',',d,')');
       if ((a - l) mod 2) and ((b - d) mod 2) = 0 then 
      writeln ('Ошибка ! Слон не сможет попасть в эту точку т.к. она другого цвета');
      
      end;
      
     writeln ('для выхода нажми ESC для продолжения любую клавишу...');
     c := readkey ;
     if c = #27 then exit; 
 
end ;
end.