type ,type, 如何解决(20分)

type
Tplan_step=(plan_yes,plan_no);
plan_yes=(y_main,y_log,y_change);
plan_no=(n_date,n_time,n_order,n_create);
n_create=(lib_c,day_c,group_c);
lib_c=(area_start,area_end);
.......
同仁们我的类型定义如何实现，（以上类型是错误的，有变通方法吗？）

枚举类型定义是为了CASE语句的方便，也便于理解，[]

老兄：帮我UP一下，难道此路不通也？？？

Tplan_yes = (y_main, y_log, y_change);
Tlib_c = (area_start, area_end);

Tn_create =record
lib_c: Tlib_c;
...
end;

Tplan_no = record
n_create: Tn_create;
...
end;

TPlan_step = record
plan_yes: Tplan_yes;
plan_no: Tplan_no;
end;