[lmikle]

Не совсем понятно, что надо сделать.
Как я понимаю:
У тебя есть некоторый массив A с числати типа Double (Extended) и т.д.
И есть некоторое целое число n - длинна желаемого массива.
Надо проверить, можно ли найти n целых чисел в массиве A, что бы составить массив B длинной n. Если так, то задача решается просто:

Код:

function CheckForB(A : Array Of Double; n : Integer) : Boolean;
var
  I : Integer;
  C : Integer;
begin
   Result := False;
   C := 0;
   For I := Low(A) To High(B) Do
     If Int(A[i]) = A[i] Then Inc(C);
   Result := C >= n;
end;