program chuso_max;
const f1='CHUSO_MAX.INP';
      f2='CHUSO_MAX.OUT';
var f,g:text;
    n,max,so:longint;
begin
    Assign(f,f1);  reset(f);
    Assign(g,f2);  rewrite(g);
    readln(f,n);
    max:=0;
    while n>0 do
        begin
            so:=n mod 10;
            if so>max then max:=so;
            n:=n div 10;
        end;
    write(g,max);
    close(f); close(g);
end.

câu hỏi kì thế bạn. Dùng các thủ tục trên chắc là kiểu tệp chứ gì. Do câu hỏi không rõ nên mình sẽ giúp bạn những gì mình hiểu thôi. giá trị chữ số lớn nhất chắc là dị đây đúng không nè: vd 160 là số 6

uses crt;

var f:text;   n:longint;

begin

       assign(f,'Tep.INP');

       reset(f);

       readln(f,n);

       close(f);

       str(n);

       max :=n[1];

       for i:=1 to length(n) do

       if n[i] > max then max :=n[i];

       assign(f,'Tep.OUT');

       rewrite(f);

       writeln(f,max);

       close(f);

end.