program madebianli;
var a:array[1..5,1..9] of boolean;
procedure print;
var i,ii:integer;
begin
for i:=1 to 5 do
for ii:=1 to 9 do
if a[i,ii]=true then write(i-1,',',ii-1,'-->');
end;
procedure search(p1,p2:integer);
var n:integer;
begin
if a[5,9]=true
then print;
exit;
end;
begin
for n:=1 to 4 do
if (n=1)and(0<p1<6)and(p2<10) then
begin
p1:p1+2;
p2:p2+1;
a[p1,p2]:=true;
search(p1,p2);
a[p1,p2]:=false;
P1:P1-2;
p2:p2-1;
end;
if (n=2)and(0<p1<6)and(p2<10) then
begin
p1:p1+1;
p2:p2+2;
a[p1,p2]:=true;
search(p1,p2);
a[p1,p2]:=false;
P1:P1-1;
p2:p2-2;
end;
if (n=3)and(0<p1<6)and(p2<10) then
begin
p1:p1-1;
p2:p2+2;
a[p1,p2]:=true;
search(p1,p2);
a[p1,p2]:=false;
P1:P1+1;
p2:p2-2;
end;
if (n=4)and(0<p1<6)and(p2<10) then
begin
p1:p1-2;
p2:p2+1;
a[p1,p2]:=true;
search(p1,p2);
a[p1,p2]:=false;
P1:P1+2;
p2:p2-1;
end;
end;
begin
fillchar(a,sizeof(a),false);
search(1,1);
readln;
end.

..............
.