Определить, сможет ли слон дойти до заданной клетки

program new;
uses crt;
const
m=8;
n=8;
 
label
M1,M2;
 var
 
a:array[1..m,1..n] of word;
i,j:integer;
x,y,x1,y1:integer;
q,p,r:integer;
begin
clrscr;
readln(x,y,x1,y1);
q:=x;
p:=y;
a[y,x]:=1;
 
 
while (q<8) and (p<8) do
begin
q:=q+1;
p:=p+1;
a[p,q]:=1;
end;
 
q:=x;
p:=y;
 
while (q>1) and (p>1) do
begin
q:=q-1;
p:=p-1;
a[p,q]:=1;
end;
 
q:=x;
p:=y;
 
while (q<8) and (p>1) do
begin
q:=q+1;
p:=p-1;
a[p,q]:=1;
end;
 
q:=x;
p:=y;
 
while (q>1) and (p<8) do
begin
q:=q-1;
p:=p+1;
a[p,q]:=1;
end;
 
if a[y1,x1]=1
then
begin
r:=1;
end
else
begin
 
q:=0;
if (((x mod 2)=0) and ((y mod 2)=0)) or  (((x mod 2)<>0) and ((y mod 2)<>0))
then
begin
while q<=6 do
begin
a[1,2+q]:=2;
q:=q+2;
 end;
q:=0;
 while q<=7 do
begin
a[2,1+q]:=2;
q:=q+2;
 end;
 
q:=0;
 while q<=6 do
begin
a[3,2+q]:=2;
q:=q+2;
 end;
 
q:=0;
 while q<=7 do
begin
a[4,1+q]:=2;
q:=q+2;
 end;
 
q:=0;
 while q<=6 do
begin
a[5,2+q]:=2;
q:=q+2;
 end;
 
q:=0;
 while q<=7 do
begin
a[6,1+q]:=2;
q:=q+2;
 end;
 
q:=0;
 while q<=6 do
begin
a[7,2+q]:=2;
q:=q+2;
 end;
q:=0;
 while q<=7 do
begin
a[8,1+q]:=2;
q:=q+2;
 end;
 if a[x1,y1]=2 then begin
 r:=0;
 end;
 end;
if (((x mod 2)=0) and ((y mod 2)<>0))  or    (((x mod 2)<>0) and ((y mod 2)=0))
then begin
while q<=6 do
begin
a[1,2+q]:=3;
q:=q+2;
 end;
q:=0;
 while q<=7 do
begin
a[2,1+q]:=3;
q:=q+2;
 end;
 
q:=0;
 while q<=6 do
begin
a[3,2+q]:=3;
q:=q+2;
 end;
 
q:=0;
 while q<=7 do
begin
a[4,1+q]:=3;
q:=q+2;
 end;
 
q:=0;
 while q<=6 do
begin
a[5,2+q]:=3;
q:=q+2;
 end;
 
q:=0;
 while q<=7 do
begin
a[6,1+q]:=3;
q:=q+2;
 end;
 
q:=0;
 while q<=6 do
begin
a[7,2+q]:=3;
q:=q+2;
 end;
q:=0;
 while q<=7 do
begin
a[8,1+q]:=3;
q:=q+2;
 end;
 if a[x1,y1]=3 then
 begin
 r:=2;
 end;
end;
end;
 
if (r<>1) or  (r<>2) then
begin
r:=0;
end;
 
 
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i,j]);
writeln;
end;
 
writeln;
writeln(r,' - hodov');
 
 
readln;
end.

const
  n=8;
 
var
  i,j,x,y,u,v: integer;
 
begin
  Write('Координаты старта: ');
  readln(i,j);
  Write('Координаты финиша: ');
  readln(x,y);
  if (x+y)mod 2 <> (i+j)mod 2 then writeln('Недостижимо')
  else if (x-y=i-j) or (x+y=i+j) then writeln('Достижимо за 1 ход')
  else begin
    v:= (x+y-i+j) div 2;
    u:= x+y-v;
    if not (u in [1..n]) or not (v in [1..n]) then begin
      v:= (i+j-x+y) div 2;
      u:= x-y+v;
    end;
    writeln('Нужно 2 хода, через поле ',u,',',v)
  end;
  readln
end.