Пролог

я, конечно, тоже тот еще специалист в прологе - но я бы, кстати, вашу простыню заменил бы на следующий код:

% Ypath и Xpath - направление 
path(FromX, FromY, ToX, ToY, Xpath, Ypath) :-
	cmp(FromX, ToX, Rx), Xpath is - Rx,
	cmp(FromY, ToY, Ry), Ypath is - Ry.

cmp(A,B,1) :- A > B, !.
cmp(A,B,-1) :- A < B, !.
cmp(_,_,0).

p.s. код не проверял, писал прямо тут

да, вам нужно же искать еще и менее близкие направления, но я думаю, ход мыслей понятен

Так и я могу. А надо сделать так, чтобы он находил координаты в порядке увеличения расстояния. Пока работает, только кривовато. Код я уже местами изменил, кстати.