Формирование одномерного массива по заданному условию внутри процедуры

function sumf(e, c: real): integer;
var
  j: integer;
  sum, a: extended;
 
begin
  a := c;
  sum := a;
  j := 1;
  while abs(a) >= e do
    begin
      inc(j);
      a := a * c; {a^j}
      sum := sum + a / j / j / j {s + a^j / j^3}
    end;
  sumf := j
end;

function ChkF(x, eps: Real; m: Integer): Boolean;
var
  e: Real; i: Integer;
begin
  ChkF:=False;
  if Abs(x)>1 then Exit;
  if x>0 then { откорректировать eps };
  e:=x; i:=1;
  while (i<=m) and (abs(e)>=eps) do begin
    Inc(i); e:=e*x/i/i/i;
  end;
  ChkF:=i<=m;
end;
 
procedure filter(
  const y: array of Real;     ny: Integer;
  var   a: array of Real; var na: Integer;
  eps: Real; m: Integer);
var
  i: Integer;
begin
  na:=0;
  for i:=0 to ny-1 do
    if ChkF(y[i],eps,m) then begin
      a[na]:=y[i]; Inc(na);
    end;
end;
 
procedure Sort(var a: array of Real; na: Integer);
  procedure swap(var a, b: Real);
  var t: Real;
  begin
    t:=a; a:=b; b:=t;
  end;
var
  i: Integer;
  done: Boolean;
begin
  repeat
    done:=True;
    for i:=0 to na-2 do
      if a[i]>a[i+1] then begin
        swap(a[i],a[i-1]); done:=False;
      end;
  until done;
end;
 
var
  y, z: array [1..100] of Real;
  eps: Real;
  m, ny, nz: Integer;
begin
  {...}
  filter(y,ny,z,nz,eps,m);
  sort(z,nz);
  {...}
end.