procedure p;
begin
end;

procedure p1(var x);
begin
end;

begin
  p1(p);
end.