Минимальная и максимальная цифры

Дано натуральное число N. Определить наименьшую и наибольшую цифры данного числа

Входные данные
Задано единственное число N

Выходные данные
Необходимо вывести наименьшую и наибольшую цифры данного числа через пробел.

Исходный код на языке Pascal
var
  a, b, c: integer;

begin
  read(a);
  b := 10;
  c := -10;
  while a > 0 do
  begin
    if (a mod 10 > c) then
      c := a mod 10;
    if (a mod 10 < b) then 
      b := a mod 10;
    a := a div 10;
  end;
  writeln(b, ' ', c);
end.