Два варианта:
1. пользоваться глобальными переменными (они изменяются в процедуре, и функция пользуется уже измененным значением)
2. Пользоваться Var-параметрами...
Код
procedure one(var x: integer);
begin ... end;
function two(a: integer): real;
begin ... end;
var param: integer;
begin
one(param); { param изменяется в процедуре }
writeln(two(param)) { пользуемся уже измененным значением param }
end.