Crash - Enum - Lape

//both these can crash lape
program new;
type E = (ea, eb, ec, ed=9);  //this can crash lape from time to time
begin
  WriteLn(ed); //InvalidEnum(..)
end;

// test 2
type E = (ea=1, eb=2, ec=5, ed=9);
var aa:E;
begin
  aa := ed;
  WriteLn(ed); //InvalidEnum(..)
end.