Поле шахматной доски определяется парой натуральных чисел

uses crt;
var a,b,c,d,e,f,i,nb,nc:integer;
function hod(n,x,y:integer):boolean;
begin
case n of
1:hod:=((abs(x-e)=1)and(abs(y-f)<=1))or((abs(x-e)<=1)and(abs(y-f)=1));
2:hod:=(x=e)or(y=f)or(abs(x-e)=abs(y-f));
3:hod:=(x=e)or(y=f);
4:hod:=abs(x-e)=abs(y-f);
5:hod:=((abs(x-e)=1)and(abs(y-f)=2))or((abs(x-e)=2)and(abs(y-f)=1));
end;
end;
 
begin
repeat
writeln('Введите поле белой фигуры:');
write('a=');read(a);
write('b=');read(b);
until (a in [1..8])and(b in [1..8]);
repeat
writeln('Введите поле черной фигуры:');
write('c=');read(c);
write('d=');read(d);
until (c in [1..8])and(d in [1..8])and((c<>a)or(d<>b));
repeat
writeln('Введите поле для хода:');
write('e=');read(e);
write('f=');read(f);
until (e in [1..8])and(f in [1..8])and((e<>a)or(f<>b))and((e<>c)or(f<>d));
writeln('Выберите белую фигуру');
writeln('1-король 2-ферзь 3-ладья 4-слон 5-конь');
repeat
read(nb);
until nb in [1..5];
writeln('Выберите черную фигуру');
writeln('2-ферзь 3-ладья 4-слон 5-конь');
repeat
read(nc);
until nc in [2..5];
if not hod(nb,a,b) then write('Белая фигура не может пойти на указанное поле')
else
 begin
  if not hod(nc,c,d) then write('Белая фигура может пойти на указанное поле, не попав под бой')
  else write('Белая фигура может пойти на указанное поле, но попав под бой');
 end;
end.