begin
comment Procedures TimeWrite and TimeRead;

	record RTime (integer h, m, s);
	
	procedure TimeWrite(reference(RTime) value dd);
	begin 
		writeon("time(h,m,s)=");
		writeon(h(dd)); writeon(m(dd)); writeon(s(dd));
	end;
	
	procedure TimeRead(reference(RTime) value result dd);
	begin
		writeon("hour="); read(h(dd));
		writeon("minutes="); read(m(dd));
		writeon("seconds="); read(s(dd));
	end;
	
	reference(RTime) tt;
	integer t, sec;
	
	tt := RTime(-1,-1,-1);
	TimeRead(tt);
	TimeWrite(tt);

end.