var
  A: record
    j: integer;
    jlocal0: record
      j: integer;
      i: real := j;
    end;
  end;
  
begin
  
end.