Дана непустая последовательность различных натуральных чисел, за которой следует 0. Оп-ределить наименьшее положительное

[izobretatel]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString S;
int n,min,m;
S=Edit1->Text+",";
n=S.Pos(",");
min=StrToInt(S.SubString(1,n-1));
S.Delete(1,n);
while (S.Pos(",")!=0){
        n=S.Pos(",");
        m=StrToInt(S.SubString(1,n-1));
        S.Delete(1,n);
        if (m<min) {
                min=m;
        }
   Label1->Caption=IntToStr(min);
        }
}

Проблема в том что он выводит наименьшее число (с минусом) а мне надо наименьшее положительное, как это сделать помогите пожалуйста замучился уже))

[RomanHouse]

Идешь циклом по всем элементам, пока не найдешь число if(k>0) min=k; - первое положительное. И потом снова цикл с условием if((k<min) && (k>0)) min=k;. Возможно не рационально, но должно работать.