Дана строка,выбрать из нее все цифры и упорядочить по возрастанию.(паскаль АВС)

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

program ExtractDigits;
var
str: string;
digits: string;
i, j, temp: integer;
begin
digits := '';

writeln('Введите строку:');
readln(str);

// Извлечение цифр из строки
for i := 1 to Length(str) do
begin
if (str[i] >= '0') and (str[i] <= '9') then
digits := digits + str[i];
end;

// Сортировка цифр по возрастанию
for i := 1 to Length(digits) do
begin
for j := i + 1 to Length(digits) do
begin
if Ord(digits[i]) > Ord(digits[j]) then
begin
temp := Ord(digits[i]);
digits[i] := Chr(Ord(digits[j]));
digits[j] := Chr(temp);
end;
end;
end;

// Вывод отсортированных цифр
writeln('Цифры, отсортированные по возрастанию:');
writeln(digits);
end.