Почему не так?

[Nikita++]

Пишет всегда, конь и королева не могут побить фигуру на клетке m, n. Почему? Как исправить?

program Chess;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   k,l,m,n,h,v: byte;
begin
   write('Input k,n: ');
      readln(k,n);
   write('Input m,n: ');
      readln(m,n);
   if (odd(k+l))=(odd(m+n))
      then writeln('Checks are the same colour')
      else writeln('Checks are NOT the same colour');
   h:=abs(k-m);
   v:=abs(l-n);
   if ((h=v)or(h*v=0))
      then writeln('The queen can beat the figure on ',m,',',n)
      else writeln('The queen can NOT beat the figure on ',m,',',n);
   if (((h=1)and(v=2))or((h=2)and(v=1)))
      then writeln('The knight can beat the figure on ',m,',',n)
      else writeln('The knight can NOT beat the figure on',m,',',n);
   readln;
end.

[Don Karleone]

ну начнем с того, что вы вводите две координаты: позицию коня или королевы и позицию фигуры, которую надо побить. При этом в обоих случаях у вас присутствует одна и таже переменная n. Наверное ее надо заменить на какую-то другую, например s. А вообще я прогу не проверял.