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

Question

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

Answer 1

Var
  a : array ['0'..'9'] of integer;
  s : string;
  i : integer;
  j : char;
begin
  readln (s);
  for i := 1 to length (s) do
    if s[i] in ['0'..'9'] then inc (a[s[i]]);
  for j := '0' to '9' do
    for i := 1 to a[j] do
  write (j);
end.