编辑代码

program Hello;
type
  Point = record
    X: Integer;
    Y: Integer;
  end;
function test():*Point
var
  p:Point;
begin
    p.X := 10;
    p.Y := 20;
    result := &p;
end

var 
  myp:*Point
begin
    myp := test();
    writeln (p.x)
end.