Определяете процедурную переменную в стиле определения лямбда - выражения, например,
begin
var dr: real->real := x->x*x;
var func: real->real := x->sin(x)+cos(x);
var add: (real,real)->real := (x,y)->x+y;
writeln(dr(2));
writeln(func(1));
writeln(add(2,3));
end.
4
1.38177329067604
5