type tr = record
            l1, l2: longint
          end;
          
var r: tr;

begin
  with r do
    inc(l)
end.