Дано натуральное число n .найти минимальную цифру числа.

program xxx;
  var a,b, min :integer;
begin
  write('введите число а='); 

  readln(a);

  min:=10;
  while a <> 0 do
    begin
       b:= a mod 10;
       if b < min then min:=b;
       a:= a div 10
    end;
  writeln('минимальная цифра = ', min);
  readln
end.

Var s: string;
begin  write('n = ');  readln(s);
  writeln('минимальная цифра: ',s.Sorted.JoinIntoString('')[1]);
end.

n = 9823457
минимальная цифра: 2