Вывести значения от минимального до максимального

const
  MAXHOD = 100; {Максимальное число ходов}
  MAXSTEP = 4;  {Число вариантов хода}
 
  
var
  game: array [1..MAXHOD, 1..2] of integer;  //Максимально ходов
  hod: array [1..MAXSTEPS, 1..2] of integer;// Массив ходов
  mx:integer;
 
function endofgame(gl: integer): boolean; {Конец игры если камни кучки один + камни кучки 2 >= максимальному значению}
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( '2 win')
  else write( '1 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:=2;
 
//write('На сколько умножить: ');
m:=3;
 
//write('Максимальное чило камней: ');
mx:=15;
 
begin
{прибавить x}
hod[1, 1]:=m ; 
hod[1, 2]:=1 ;
{прибавить y}
hod[2, 1]:=1 ;
hod[2, 2]:=m ;
{унможить x}
hod[3, 1]:=n ;
hod[3, 2]:=0;
{унможить y}
hod[4, 1]:=0 ;
hod[4, 2]:=n ;
end;
 
  step(x0, y0, 1);
end.