Шахматный жеребец за один ход может переместиться с 1-го данного поля

uses crt;
var a,b,c,d:byte;
begin
clrscr;
repeat
writeln(Положение коня:);
write(a=);readln(a);
write(b=);readln(b);
until (a in [1..8])and(b in [1..8]);
repeat
writeln(Поле для хода:);
write(c=);readln(c);
write(d=);readln(d);
until (c in [1..8])and(d in [1..8]);
if ((abs(a-c)=1)and(абс(b-d)=2))or((абс(a-c)=2)and(abs(b-d)=1))then
write(Конь может за один ход попасть на данное поле)
else write(Конь не может за один ход попасть на заданное поле);
readln
end