- weekday:array[0..6] of ansistring =('Thursday','Friday','Saturday','Sunday','Monday','Tuesday','Wednesday');\r
- month:array[0..11] of ansistring =('January','February','March','April','May','June','July','August','September','October','November','December');\r
+ weekday:array[0..6] of string[10]=('Thursday','Friday','Saturday','Sunday','Monday','Tuesday','Wednesday');\r
+ month:array[0..11] of string[10]=('January','February','March','April','May','June','July','August','September','October','November','December');\r