Дано натуральные числа n, m. Найти максимальную и минимальную цифры числа n в записи этого числа в m системе счисления

const
  k: string[36] = '0123456789ABCDEF';
var
  n, m, x, a, c, b: integer;
  s: string;
 
begin
  //перевод из 10 системы счисления в m
  write('Число в СС 10  n=');
  readln(n);
  repeat
    write('Перевести в СС m=');
    readln(m);
  until m in [2..36];
  while n > 0 do
  begin
    s := k[n mod m + 1] + s;
    n := n div m;
  end;
  writeln('Число в СС=', s);
  //нахождение цифр
??
??
writeln('min=', b, ', ', 'max=', c);
end.

const k: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var  n,m,i,mn,mx: integer;
     s: string;
 
begin
write('Число в СС 10  n=');
readln(n);
repeat
write('Перевести в СС от 2 до 36 m=');
readln(m);
until m in [2..36];
s:='';
while n > 0 do
 begin
  s := k[n mod m + 1] + s;
  n := n div m;
 end;
writeln('Число в СС',m,'=', s);
mn:=36;
mx:=1;
for i:=1 to length(s) do
if pos(s[i],k)<mn then mn:=pos(s[i],k)
else if pos(s[i],k)>mx then mx:=pos(s[i],k);
writeln('min=',k[mn],' max=',k[mx]);
end.