Lets create a new data record suitable for storing the date
type date = RECORD day : integer; month : integer; year : integer END;This declares a NEW data type called date. This date record consists of three basic data elements, all integers. Now declare working variables to use in the program. These variables will have the same composition as the date record.
var todays_date : date;defines a variable called todays_date to be of the same data type as that of the newly defined record date.