program recordtest(input,output);
type
   t0 = record
	   x : integer;
	   y : real;
	end;
   t1 = record { Same field names and types }
	   x : integer;
	   y : real;
	end; 
   t2 = record { Does the name we use for fields matter? } 
	   a : integer;
	   y : real;
	end; 
   t3 = record { Does the order of fields matter? }
	   y : real;
	   x : integer;
	end; 
   t4 = record { Can you assign between different sizes? }
	   x : integer;
	   y : real;
	   z : integer;
	end; 

   { Effect of type aliasing }
   t5 = t1;  
   t6 = t1;  

var 
   v0 : t0
   v1 : t1;
   v2 : t2;
   v3 : t3;
   v4 : t4;
   v5 : t5;
   v6 : t6;
   v7 : record 
	   x : integer;
	   y : real;
	end;
   v8,v9 : record 
             x : integer;
             y : real;
           end;

begin
end.