Максимальное значение

program Project1;
const
  m = 25;
var
  n: int64;  // Переменная для хранения значения вводимого числа.
  d: int64; // Вспомогательная переменная для увеличения разрядности чисел.
  i,j,k: integer; // Вспомогательные переменные для организации циклов.
  tmp: integer;  // Промежуточная переменная для хранения значения элемента при сортировке.
  a: array [1..m] of integer; // Переменная для хранения массива.
begin
  writeln('Введите целое число: ');
  Readln(n);
  k:= 0;
  while n > 0 do
    begin
      inc(k);
      a[k]:= n mod 10;  // Разложение числа на разряды.
      n:= n div 10;
    end;
 for i:= 1 to k-1 do    // Сортировка чисел в массиве.
 for j:= 1 to k-i do
   if a[j] > a[j+1] then
     begin
      tmp:= a[j];
      a[j]:= a[j+1];
      a[j+1]:= tmp
     end;
  n:= 0;
  d:= 1;
  for i:= 1 to k do
    begin
      n:= n + a[i]*d;  //  Сборка числа из чисел массива.
      d:= d*10;
    end;
    writeln(n);
  Readln;
end.

program Project1;
var
  n: string;  // Переменная для хранения символов вводимого числа.
  d: string; // Переменная для хранения символов результата.
  i,j: integer; // Вспомогательные переменные для организации циклов.
  max: string; //  Промежуточная переменная для хранения символа с максимальным значением кода.
  ind: integer; // Промежуточная переменная для хранения индекса символа в строке.
begin
  d:= '';
  writeln('Введите число: ');
  Readln(n);
  for i:= 1 to length(n) do
    begin
      max:= '0';
      for j:= 1 to length(n) do
        if copy(n,j,1) > max then  // Условие для поиска символа с наибольшим кодом.
          begin
            max:= copy(n,j,1);
            ind:= j;            // Нахождение индекса символа с наибольшим значением кода.
          end;
      delete(n,ind,1);          // Удаление найденного символа с наибольшим кодом из исходной строки.
      d:= d + max;              // Формирование новой строки из найденных символов.
    end;
    writeln(d);
  Readln;
end.