Использование имени процедуры в качестве параметра другой процедуры

[Alexey355]

Предложите, пожалуйста, пример решения след. задачи с использованием вышеуказанного условия:

Составить процедуру, которая для заданного массива С из n элементов формирует массив из элементов, для которых значение f(Ci) попадает на заданный отрезок...

[evg_m]

type TProcFunc =function(const arg: real): real;
TrMas: array of real;

Составить процедуру,

procedure TestRMas(inmas: TRMas; func: TProcFunc; Rmin,Rmax: real; var outmas: TRmas);
begin
которая для заданного массива С (inmas) из n элементов формирует массив (outmas) из элементов, для которых значение f(Ci) (func) попадает на заданный отрезок...(Rmin, Rmax)
end;

function f_x2(x: real): real;
begin
   result:=x*x;
end;

function f_x3(x: real): real;
begin
   result:=x*x*x;
end;

var
   c: TRMas;
   r: TRmas;

setlength(c,10);
for j:=0 to 9 do c[j]:=j/10;

Testmas(C, f_x2, 0.5, 0.7, r);
Testmas(C, f_x3, 0.5, 0.7, r);