Найти максимальную цифру в заданном числе

let maximum(max, a) = 
   if (a%10>max) then max=a%10;
   a=a/10;
 
       let a, max=maximum(0,190);
       System.Console.WriteLine(max);

let maxdigit (n:int) = n.ToString() |> Seq.map (fun c -> int c - 48) |> Seq.max
 
maxdigit 34543 |> printfn "%i"

let maxdig2 (n:int) = 
    let rec digits d r =
        if d = 0
        then r
        else digits (d/10) ((d%10)::r)
    
    let digs = digits n [];
    List.max digs

let maxdig3 (n:int) = 
    let rec md d r max =
        let newr = d % 10
        let newmax = if max > newr then max else newr 
        if d = 0
        then max
        else md (d/10) newr newmax 
    md n 0 0

let a=maxdig3(System.Console.Read());

maxdig3 34543 |> printfn "%i"
System.Console.Read() |> ignore

let rec max x = //вычисление максимальной цифры
    match x with 
    |0 -> 0 
    |_ -> if max(x/10) < x%10 then x%10 else max(x/10) //проверка условия
let rec min x = //поиск минимальной цифры
    match x with 
    |0 -> 9
    |_ -> if min(x/10) > x%10 then x%10 else min(x/10)