var
  x, y : 
    record
      i : integer;
      j : 
        record
	  i : real;
	  j : integer;
	end;
    end;

begin
  y.i := 25;
  y.j.i := 3.14;
  y.j.j := 45;
  x.j := y.j;
end.