[Rokuell]

Что-то вроде этого, можешь переделать под свои нужды:

Код:

function MinVal:real;
var B:array [1..10] of real; // как я понял тебе нужен дробный тип,
                             // если целый, то integer
    min:real;
    i:integer;
begin
 for i:=1 to 10 do B[i]:=Random*3; // запосление значений случайными числами
 min:=High(integer);
 for i:=1 to 10 do
  begin
   if (B[i] < min) and (B[i] >=2) and (B[i] <=2.5) then min:=B[i];
  end;
 if min = High(integer) then
  begin
   Result:=0; // Если ответа нет, то пусть функция возвращает 0
  end
 else
  begin
   Result:=min;
  end;
end;