[fpc-pascal] What is wrong with this enum and array related code

[Frank Church]

program testnums;
//{$APPTYPE CONSOLE}

uses
  Classes, SysUtils;
type
   stType = (stLite := -100, stDb, stBothLite, stBothDb); //settings
location Type
   stTypes = Array [stType] of integer;
var
 d : stType;
 s : string;
 i : integer;
begin
 writeln('');
 for i := Ord(low(stType)) to Ord(high(stType)) do
 begin
  d := stTypes[i - Ord(low(stType))];
   writestr(s,d);
   writeln(d + ' ' + IntToStr(Integer(i)));
 end;
 readln;

end.

-- 
Frank Church

=======================
http://devblog.brahmancreations.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20100912/b3c0dae3/attachment.html>