Найди наибольшую цифру в записи числа

Var n,i : longint; st : string; ch : char; begin readln(n); str(n,st); ch:=''; for i:=1 to length(st) do if st[i]>ch then ch:=st[i]; writeln(ch); end.