RosettaCodeData/Task/Pick-random-element/PascalABC.NET/pick-random-element.pas

begin
  var a := Arr('cat','dog','wolf','zebra');
  a.RandomElement.Print
end.