enum strings

program Project4;
{$APPTYPE CONSOLE}

uses
  System.SysUtils;

type
  enums = (a,b,c,d);
var
  s     :  string;
  e     :  enums;
  arr   :  array [enums] of string = ('aaa', 'bbb', 'ccc', 'ddd');
begin
   for s in arr do begin
      writeln( s );
   end;
   writeln;

   for e := Low(enums) to High(enums) do
      writeln( arr[e] );

   readln;

end.