Cum se determina algorimul de minim si maxim in pascal?

int maxim(int x)
{ int c max=0,c;
  while(x!=0){c=x%10;
                  if(c max>0 ) c max=c;
                  x=x/10;
                }
return c max;
}
 
int minim(int x)
{int c min=9,c;
while(x!=0){c=n%10;
                 if( c min<c) c min=c;
                 x=x/10;
               }
return c min ;
}