var
  pointA , pointB :
    record
      x, y : real;
    end;

begin
  pointA := pointB
end.