[bogdanzykov]

мой друг написал мне вот это ,но я не смог разобраться ,цитирую:
Кидаешь на форму два едита для границ и едит для чисел и кнопку, для старта программы
Дальше объявляешь переменную str типа string (туда скинем твой массив чисел), переменную типа a real (текущее обрабатываемое число), переменную типа k integer (количество чисел).

Код:

str: string;
a: real;
k: integer;

В событии кнопки OnClick пишешь код для обнуления переменной количества чисел.

Код:

k := 0;

Теперь в строковую переменную переносим массив и очищаем этот edit.

Код:

str := edit3.text;
edit3.text := '';

дальше будем резать строку

Код:

while pos(' ',str) <> 0 do  //если у нас есть пробелы в строке
 begin
  a := strtofloat(copy(str,1,pos(' ',str)-1));  //Записываем в переменную а новое число
  if (a >= strtofloat(edit1.text)) and (a <= strtofloat(edit2.text)) then  //проверяем вхождение в рамки edit1 - для минимального значение edit2 - для максимального значения
   begin
     edit3.text := edit3.text + a + ' '; //выводим подходящие числа в edit3 
     inc(k);  //Считаем количество попаданий в рамки
   end;
 end;

у нас осталось последнее число в переменной str (если в конце строки не было пробела) проверяем его

Код:

if (strtofloat(str) >= edit1.text) and (strtofloat(str) <= edit2.text) then
  begin
    edit3.text := edit3.text + str;
    inc(k);
  end;

теперь осталось отобразить количество элементов.
можно использовать showmessage, но я сделаю так:

Код:

edit3.text := 'Кол-во чисел ='+ inttostr(k) + ' числа: '+ edit3.text;

1 и 2 скрипт я написал,а вот что ниже вставлять не пойму куда