Zufälligen Vokal und Konsonant generieren

[b1zZ]

Deklaration der Arrays:

Delphi-Quellcode:

type 
  TKonsonant = Array [0..2] of Char = ('b', 'c', 'd'); 
type 
  TVokal = Array [0..2] of Char = ('a', 'e', 'i');

Edit: Unsinnigen Satz entfernt