Максимальная и минимальная цифры натурального числа

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
int k=0,min=9,max=-1;
int p1=0,x=150,y=150;
n=StrToInt(Edit1->Text);
k=Edit1->Text.Length();
 
for(int i=1; i<k+1; i++)
{
 p1=StrToInt(Edit1->Text.Pos(i));
 if(p1<min) min=p1;
 if(p1>max) max=p1;
}
 
ShowMessage(AnsiString("MAX "+IntToStr(max)+"  MIN "+IntToStr(min)));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int Digit=StrToInt(Edit1->Text);
    int Max=0;
    int Min=9;
    int r;
    do
    {
        r=Digit%10;
        if(r>Max) Max=r;
        if(r<Min) Min=r;
        Digit=Digit/10;
    }
    while(Digit!=0);
    ShowMessage(AnsiString("MAX "+IntToStr(Max)+"  MIN "+IntToStr(Min)));
}