шахматы=__= сложнА(задачки для начинающих)

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)*abs(y-f)=2;//ход коня
end;
end;
 
begin
repeat
writeln('Введите поле белой фигуры:');
write('a=');readln(a);
write('b=');readln(b);
until (a in [1..8])and(b in [1..8]); //в пределах доски
repeat
writeln('Введите поле черной фигуры:');
write('c=');readln(c);
write('d=');readln(d);
until (c in [1..8])and(d in [1..8])and((c<>a)or(d<>b)); //в пределах доски
                                            //и не совпадает с полем белой
repeat
writeln('Введите поле для хода:');
write('e=');readln(e);
write('f=');readln(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
readln(nb);
until nb in [1..5];
writeln('Выберите черную фигуру');
writeln('2-ферзь 3-ладья 4-слон 5-конь');
repeat
readln(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;
readln
end.