Определить, являются ли две клетки шахматной доски началом и концом хода заданной фигуры

program hello;
var 
    x1,y1,x2,y2,n:integer;
 
begin
    writeln('Введите координаты 1: ');
    readln(x1,y1);
    writeln('Введите координаты 2: ');
    readln(x2,y2);
    writeln('Выберите фигуру: 1-король, 2-ферзь, 3-ладья, 4-слон, 5-конь, 6-пешка');
    readln(n);
    case n of
    1:
        begin
            if ((x1-x2)<=1) and ((y1-y2)<=1) then
                writeln('да')
            else
                writeln('нет');
        end;
    2:
        begin
            if (x1-x2)=(y1-y2) then
                writeln('да')
            else 
                if (x1=x2) or (y1=y2) then
                    writeln('да')
                else
                    writeln('нет');
        end;
    3:
        begin
            if (x1=x2) or (y1=y2) then
                writeln('да')
            else
                writeln('нет');
        end;
    4:
        begin
            if ((x1-x2)=(y1-y2)) then
                writeln('да')
            else 
                writeln('нет');
        end;
    5:
        begin
            if (((x1-x2)=1) and ((y1-y2)=2)) or (((x1-x2)=2) and ((y1-y2)=1)) then
                writeln('да')
            else
                writeln('нет');
        end;
    6:
        begin
            if (x1=x2) and ((y1-y2)=1) then
                writeln('да')
            else 
                writeln('нет');
        end;
    end;
end.