Написать программу на языке паскаль,которая считывает с клавиатуры строку S, состоящую из цифр. В заданном строкой S натуральном N-разрядном числе упорядочить цифры так, чтобы получить наибольшее число, записанное теми же цифрами. Строка S не пустая и содержит не более 200 символов. Строка S состоит только из цифр.

Предыдущий
вопрос Следующий
вопрос

program MaxNumber;
var
S: string;
i, j: integer;
begin
write('Enter a number: ');
readln(S);

for i := 1 to length(S) - 1 do
for j := 1 to length(S) - i do
if S[j] < S[j + 1] then
begin
S[j] := char(ord(S[j]) xor ord(S[j + 1]));
S[j + 1] := char(ord(S[j]) xor ord(S[j + 1]));
S[j] := char(ord(S[j]) xor ord(S[j + 1]));
end;

writeln('The largest number is: ', S);
end.