procedure TForm1.Button1Click(Sender: TObject);

   var i,a:integer;

begin

  a:=StrToIntDef(edit1.Text,1); 

//переводим значение из едит в integer

    for i:=0 to high(mas) do  begin

       label1.Caption:=label1.Caption+' '+IntToStr(mas[i]);

         //выводим весь массив (для наглядности)

       if mas[i]>=a then

        //проверяем что бы текущий элемент массива был не меньше

        // заданного нами

       label2.Caption:=IntToStr(mas[i]);  //выводим этот элемент

    end;

end;