type R = 1. . 5;
type L = 1 . . 5;
type T =  array [ R ] of record [a:integer; b: L ];
type S = array [L]  of record [a: integer; b: R];
var  x : T;
var y : S;
var  i:   L;
begin 
for i = 1  to 5 do  x[i] = record [0,0];
y = x ;
x[2;. b = 3;
end;