1.4 Chess figure danger checking

program chess;
var
x : integer;
y : integer;
m : integer;
n : integer;
test : integer;
figureType : string;
  begin
    writeln('Please enter the figure type: Rook, Bishop, Queen, Knight');
    readln(figureType);
    writeln('Enter m');
    readln(m);
    writeln('Enter n');
    readln(n);
    writeln('Enter x');
    readln(x);
    writeln('Enter y');
    readln(y);
    test:= x+y+m+n;

    if (figureType = 'Rook') then
     begin
       if(x = m) or (y=n) then
            begin
             writeln('The figure is in danger!');
            end
        else
            writeln('The figure is not in danger!');
      end;

      if (figureType = 'Bishop') then
       begin
       if(x=y) and (m=n) then
            begin
             writeln('The figure is in danger!');
            end
        else
            writeln('The figure is not in danger!');
       end;

      if (figureType = 'Queen') then
       begin
       if((x=y) and (m=n)) or ((x = m) or (y=n)) then
            begin
             writeln('The figure is in danger!');
            end
        else
            writeln('The figure is not in danger!');
       end;

       if (figureType = 'Knight') then
        begin
       if ((m+2)=x) and ((n+1)=y) or ((m+2)=x) and ((n-1)=y) or ((m-2)=x) and ((n+1)=y) or ((m-2)=x) and ((n-1)=y) then
            begin
             writeln('The figure is in danger!');
            end
        else
            writeln('The figure is not in danger!');
         end;

   end.