Để tìm được chữ số lớn nhất thì chỉ cần cho ra một biến max và div mod rồi so sánh để tìm được số lớn nhất trong một vòng lặp nhé, cụ thể là như sau:
Bước 1: Nhập giá trị N vào bàn phím
Bước 1.2: Khai báo biến Max = 0 và biến a
Bước 2: Nếu n <=0 thì sang bước 6 không thì sang bước 3
Bước 3:  a = n mod 10
Bước 4: Nếu a > Max thì Max = a không thì Max giữ nguyên
Bước 5: n = n div 10 rồi quay lại bước 2
Bước 6: In ra giá trị Max ra màn hình 

Chúc bạn học tốt

Thuật toán:

B1: Nhập N.

B2: Chuyển N thành xâu s.
B2: i←1; kq←'0';

B3: i←i+1;

B4: Nếu s[i]>kq thì kq=s[i];

B5: Nếu i=độ dài của xâu s thì đến B6 ngược lại qua B3.

B6: Xuất kq.

uses crt;
var n:string; max:char; i:longint;
begin 
clrscr;
   write('N=');readln(n);
   max:='0';
   for i:=1 to length(n) do 
      if n[i]>max then max:=n[i];
   writeln('Max=',max);
readln
end.