How can i simulate calling by value-result in this example. Without adding variables and without change a variable name.?

Program one;
    var
      x:integer;
    Function two():integer;
        begin
           x:=x+1;
           dos:=x;
        end;
    Procedure three(x:integer);
       begin
          x:=x+5;
          x:=two();
       end;
begin
x:=8;
trhee(x);
write(x);
end.