Saya mau tau procedure perm(s, p: string); dari Membangkitkan Permutasi

if s <> ''''  then    begin      for i:= 1 to length(s) do      begin        // pindahkan abjad ke-i dari s ke p