DouKaku?

type
  TDynIntArray = array of Integer;

function lot(n, m: Integer): TDynIntArray;
  function NumInArray(num: Integer; arr :TDynIntArray): Boolean;
  var
    x: Integer;
  begin
    Result := False;
    for x in arr do
      if x = num then
        Result := True;
  end;
var
  people: TDynIntArray;
  i: Integer;
  num_lot: Integer;
begin
  SetLength(people, m);
  Randomize;
  for i := 0 to m - 1 do
  begin
    repeat
      num_lot := Random(n) + 1;
    until not NumInArray(num_lot, people);
    people[i] := num_lot;
  end;
  Result := people;
end;