Игра Баше

[shkolnik45]

Из n палочек, играющие поочередно берут не менее 1 и не более k палочек. Проигрвает тот, кто берет последнюю палочку.
Помогите пожалуйста написать процедуру одного хода для данной игры.
procedure player1 (var n,k:integer; var a:integer)
a - кол-во палочек взятых игроком из оставшихся палочек
запрещается изменять n и k

[evg_m]

procedure player1(const n, k: integer; out a: integer);
begin
  a:=min(n, random(k) +1);
  a:=random(min(n, k)) +1;
end;

P.S. random, min Справочник Delphi внизу страницы