Паскаль найти наименьшую и наибольшую цифру в записи числа а.

var
  a: integer;

begin
  readln(a);
  a := abs(a);
  writeln(a.ToString().Max(), '  ', a.ToString().Min());
end.