function Purchase(sThing: string; iMoney: int64): variant;
begin
  Goto('가게');
  Ask(sThing, iMoney);
  Take(sThing);
  Give('점원', iMoney);
  ComeBack;
end;

...

result := Purchase('파', 10000);