program chuso_max;
uses crt;
var n,m,max,a,d:longint;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    m:=n;   max:=0;
    while m>0 do
        begin
            a:=m mod 10;
            if a>max then max:=a;
            m:=m div 10;
        end;
    d:=0;
    while n>0 do
        begin
            a:=n mod 10;
            if a=max then d:=d+1;
            n:=n div 10;
        end;
    writeln('Chu so lon nhat: ',max);
    writeln('Xuat hien ',d,' lan');
    readln;
end.

Siêu đơn giản luôn ;):

Bản 1 có chú thích:

uses crt;
var i,n,d,k,max:integer; 
begin 
clrscr;
   write('n=');readln(n);
   max:=0; d:=0;
   while n<>0 do  
      begin
         k:=n mod 10; {dat k bang cho so tan cung ben phai cua n} 
         if k>max then max:=k; {neu k lon hon max thi gan max bang k}
         if k=max then d:=d+1; {neu k=max thi tang dem len 1}
         n:=n div 10; {xoa chu so tan cung ben phai cua n}
      end;
   write('Chu so lon nhat: ',max,'; Xuat hien ',d,' lan');
readln
end.

Bản 2 không có chú thích:

uses crt;
var i,n,d,k,max:integer; 
begin 
clrscr;
   write('n=');readln(n);
   max:=0; d:=0;
   while n<>0 do  
      begin
         k:=n mod 10;
         if k>max then max:=k; 
         if k=max then d:=d+1; 
         n:=n div 10;
      end;
   write('Chu so lon nhat: ',max,'; Xuat hien ',d,' lan');
readln
end.