tìm chữ số lớn nhất trong xâu , n được nhập từ bàn phím

program solonnhat;

uses crt;

var st:longint;

      i:byte;

      max:char;

begin

     clrscr;

     write(‘Nhap xau: ‘);   readln(st);

     max:=”0;

     for i:=1 to n do 

          if (st[i] in [‘1’..9′]) and (st[i]>max) then max:=st[i];

     if pos(max,st)=0 then write(‘Khong co so de tim lon nhat’)

          else write(‘Chu so lon nhat la: ‘,max);

     readln;

end.