Работа с целыми числами.

[Urost]

Задание: Дано натуральное число n. Переставить его цифры так, чтобы образовалось наименьшее число, записанное теми же цифрами.
Мое решение:

Program asd;
Var
	n, d, h, a, b: integer;
	s: string;
begin
	writeln('введите число');
	readln(n);
	str(n, s);
	d:= length(s);
	val(s[1], a, code);
	val(s[d], b, code);

Вопрос:Что делать дальше, как написать основное требование задания *Переставить его цифры так, чтобы образовалось наименьшее число, записанное теми же цифрами.*?Может кто помочь?Спасибо.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Например, можно отсортировать строку по убыванию (также, как массив).


И используйте тег [CODE] (значок # ) для кода вместо цитаты.

[Serge_Bliznykov]

  writeln('введите число');
  readln(n);
  str(n, s);

  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to Length(s)-1 do
    for j:=i+1 to Length(s) do
      if s[i] > s[j] then
        begin
          OneChar:=s[i];
          s[i]:=s[j];
          s[j]:=OneChar
        end;
  WriteLn('minimal number is ',s);
  Readln;

p.s. правда, при решении подобной задачи возникает одна небольшая проблемка - а что делать, если в записи числа присутствует ноль?.. Формально - его можно записать первым (так будет в вышеприведённом решении), практически - по правилам математики незначащие нули отбрасываются... Но эта проблема должна разрешаться до начала программирования - т.е. Вы, как программист, должны решить, допустимо выносить ноль в начало числа. И если нет - то что нужно делать в данной ситуации..