Pascal. написать программу: нахождения цифры в числе с максимальным значением. 9й класс.

uses crt;  
var a,Max,x:integer;  
begin      
  clrscr;      
  Write('Введите число: ');
  readln(a);      
  Max:=a mod 10;    
  while a>0 do          
   begin
          x:=a mod 10;
          a:=a div 10;
          if x>Max then Max:=x;
   end;
  Writeln('Максимальная цифра: ',Max);
  readln;  
end.