Поиск максимумов

int Max;
Max=Data[0];
for(int i=1; i<5; i++)
{
if (Data[i]>Max) Max=Data[i];
}

int Max, prevMax;
Max=Data[0];
for(int i=1; i<5; i++)
{
if (Data[i]>Max) {prevMax=Max;Max=Data[i];}
}

//
//Режем строку на куски
//К примеру в качестве сепараторов можно задать сразу набор
// ",. (){}?!\n\r", Тогда функция вернет список строк между этими символами
TStringList*SplitToWords(char*str, int Length, String delimetrs)
{
char*tempstr=new char[Length+1];
strcpy(tempstr,str);
int delimetrsCount=delimetrs.Length();
for(int j=0;j<delimetrsCount;j++)
  {
  char del=delimetrs[j+1];
  for(int i=0;i<Length;i++)
    {
    if(tempstr[i]==del)
      {
      tempstr[i]=0;
      }
    }
  }
TStringList*Result=new TStringList();
for(int i=0;i<Length;i++)
  {
  if(tempstr[i]!=0)
    {
    Result->Add(tempstr+i);
    for(;i<Length;i++)
      {
      if(tempstr[i]==0)break;
      }
    }
  }
delete [] tempstr;
return Result;
}
 
TStringList*SplitToWords(char*str, int Length, String delimetrs)
{
char*tempstr=new char[Length+1];
strcpy(tempstr,str);
int delimetrsCount=delimetrs.Length();
for(int j=0;j<delimetrsCount;j++)
  {
  char del=delimetrs[j+1];
  for(int i=0;i<Length;i++)
    {
    if(tempstr[i]==del)
      {
      tempstr[i]=0;
      }
    }
  }
TStringList*Result=new TStringList();
for(int i=0;i<Length;i++)
  {
  if(tempstr[i]!=0)
    {
    Result->Add(tempstr+i);
    for(;i<Length;i++)
      {
      if(tempstr[i]==0)break;
      }
    }
  }
delete [] tempstr;
return Result;
}
//-------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringGrid1->RowCount=Memo1->Lines->Count+1;
StringGrid1->Cells[0][0]="F";
StringGrid1->Cells[1][0]="K";
 
for(int i=0;i<Memo1->Lines->Count;i++)
  {
  String line=Memo1->Lines->Strings[i].UpperCase();
  TStringList*parts=SplitToWords(line.c_str(),line.Length()," ");//Режем по пробелам. Нужно, чтобы соблюдался данный формат(F=ПРОБЕЛх.хххПРОБЕЛК=ПРОБЕЛхх), если пробелы могут быть, 
//а могут и не быть, то тогда уж нужно немного иначе делать. Например, просто выдирать числа из строки и 
//помещать их в список...
  //Теперь у нас по 1 и 3 индексам будут необходимые значения
  StringGrid1->Cells[0][i+1]=parts->Strings[1];
  StringGrid1->Cells[1][i+1]=parts->Strings[3];
  delete parts;
  }
}