program foo(input,output);
  type 
    pair = record
              x: integer;
              y: integer;
              q,r,s: integer
            end;
  var
     a, b: pair;

  procedure bar;
    var
      c, d: pair;
  begin
    c := a;
    d := c;
    d.y := d.x;
  end;

begin
  a.x := 10;
  a.y := a.x + 2;
  b := a;
  bar;
end.