В последовательности чисел найти минимальное, не используя массив

void __fastcall TForm7::Button5Click(TObject *Sender)
{
randomize();
int a;
int b;
int c;
int d;
int e;
int f;
int j;
int k;
int l;
int m;
a=random(100);
b=random(100);
c=random(100);
d=random(100);
e=random(100);
f=random(100);
j=random(100);
k=random(100);
l=random(100);
m=random(100);
Memo1->Lines->Add(IntToStr(a));
Memo1->Lines->Add(IntToStr(b));
Memo1->Lines->Add(IntToStr(c));
Memo1->Lines->Add(IntToStr(d));
Memo1->Lines->Add(IntToStr(e));
Memo1->Lines->Add(IntToStr(f));
Memo1->Lines->Add(IntToStr(j));
Memo1->Lines->Add(IntToStr(k));
Memo1->Lines->Add(IntToStr(l));
Memo1->Lines->Add(IntToStr(m));
 
}

void __fastcall TForm7::Button6Click(TObject *Sender)
{
int temp;
int temp2;
bool err=true;
while (err) {
err=false;
for (int i = 0; i < Memo1->Lines->Count-1; i++) {
       temp=StrToInt(Memo1->Lines->Strings[i]);
       temp2=StrToInt(Memo1->Lines->Strings[i+1]);
       if (temp>temp2) {
          Memo1->Lines->Strings[i]=temp2;
          Memo1->Lines->Strings[i+1]=temp;
         err=true;
       }
   }
 
}
}

TStringList *list = new TSringList;
list->Add(Edit->Text);
list->Sorted = true;
delete list;

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN){
static int a=100000;
if(a>StrToInt(Edit1->Text)){
a=StrToInt(Edit1->Text);
Label1->Caption=IntToStr(a);}
}
}

        int min, p;
        cin >> min;
        for (int i=1; i<10; i++)
        {
                cin >> p;
                if (min>p)
                        min = p;
        }
        return min;