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

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