ホクホクのイモを Delphi で書いてみる - Qiita

uses System.SysUtils, uPermutations; begin Randomize; var s := ''; var rs := 'ホイクモ'; for var i in Perm(4, 2) do s := s + rs.Chars[i]; s := s + s + 'の'; for var i in Perm(4, 2) do s := s + rs.Chars[i]; Writeln(s); end. unit uPermutations; interface uses SysUtils, Types, Math; type TPermEnumerator = class; TPerm = record private Fcount: Integer; FIntArr: TIntegerDynArray; public constructor Create(r