можно ли с поля (k,l) одним ходом ферзи попасть в поле (m,n).

program zadacha85d;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var n, i, k: integer;
    x, S, S1: real;
begin
  Write('n=');
  ReadLn(n);
  Write('x=');
  ReadLn(x);
  k:=1;
  S:=0;
  while k<=n do
    begin
      i:=1;
      S1:=sin(x);
    while i<=k do
      begin
        inc(i);
        S1:=S+S1;
        inc(k);
      end;
  WriteLn('S', S:4:3);
  ReadLn;
  end;
end.

var k,l,m,n:byte;
begin
repeat
writeln('Положение ферзя:');
write('k=');readln(k);
write('l=');readln(l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Поле для хода:');
write('m=');readln(m);
write('n=');readln(n);
until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n));
if(k=m)or(l=n)or(abs(k-m)=abs(l-n))
then write('Ферзь может одним ходом попасть на заданное поле')
else write('Ферзь может попасть за 2 хода с поля ',m,'-',l);
{вообще таких полей много}
readln
end.