C3 из ЕГЭ по информатике

[BB-8]

Здравствуйте у меня есть программа, которая строит полное дерево ходов, для игры в камни. Помогите мне сделать из неё программу, которая выводит только те ходы, при которых один игрок гарантированно выиграет а другой гарантированно проиграет. То есть неполное дерево ходов, как в ЕГЭ.

Вот если что правила игры:
два игрока играют в следующую игру. Перед ними лежат две кучки камней, в первой из которых [x], а во второй - [y] камня. У каждого игрока неограниченно много камней. Игроки ходят по очереди. Ход состоит в том, что игрок или увеличивает в [n] раза число камней в какой-то куче, или добавляет [m] камня в какую-то кучу. Выигрывает игрок, после хода которого общее число камней в двух кучах становится не менее [mx] камней. Кто выигрывает при безошибочной игре обоих игроков - игрок, делающий первый ход, или игрок, делающий второй ход? Каким должен быть первый ход выигрывающего игрока?

Мой код:

const
  MAXLEVEL = 20; {Максимальное число ходов}
  MAXSTEPS = 4;  {Число вариантов хода}
 
  
var
  game: array [1..MAXLEVEL, 1..2] of integer;
  hod: array [1..MAXSTEPS, 1..2] of integer;
  mx:integer;

function endofgame(gl: integer): boolean;
begin
  endofgame := (game[gl, 1] + game[gl, 2]) >= mx;
end;

procedure print(gl: integer);
var
  i: integer;
begin
  writeln;
  for i := 1 to gl do 
  write( '(', game[i, 1], ',', game[i, 2], ')--> ');
  if gl mod 2 = 0 then write( '1 win')
  else write( '2 win');
end;

procedure step(x, y, gl: integer);
{x,y - координаты точки, gl - глубина рекурсии}
var
  i: integer;
begin

  game[gl, 1] := x;
  game[gl, 2] := y;
  if endofgame(gl) then 
  print(gl)
  else for i := 1 to MAXSTEPS do
      if i < 3 then step(x * hod[i, 1], y * hod[i, 2], gl + 1)
      else step(x + hod[i, 1], y + hod[i, 2], gl + 1);
end;

var
x0,y0,m,n:byte;
begin
//write('Введите кол-во камней в 1 кучке: ');
x0:=5;

//write('Введите кол-во камней во 2 кучке: ');
y0:=4;

//write('Сколько прибавить: ');
n:=5;

//write('На сколько умножить: ');
m:=3;

//write('Максимальное чило камней: ');
mx:=15;

begin
hod[1, 1]:=m ;
hod[1, 2]:=1 ;

hod[2, 1]:=1 ;
hod[2, 2]:=m ;

hod[3, 1]:=n ;
hod[3, 2]:=0;

hod[4, 1]:=0 ;
hod[4, 2]:=n ;
end;

  step(x0, y0, 1);
end.