найти самую большую цифру трехзначного целого числа
через паскаль, пожалуйста, заранее спасибо

VAR
 n,max:LongInt;
BEGIN
 WriteLn('Введите трехзначное число:');
 ReadLn(n);
 max:=0;
 Repeat
  If (n mod 100)>max then max:=(n mod 100);
  n:=n div 100;
 Until n=0;
 WriteLn('Самое большое число в трехзначном числе: ',max);
 Readln;
END.

найс решение