В строке с символами встречаются цифры. Необходимо записать число из этих цифр, отсортированных по возрастанию. Каждая цифра в ответе записывается только один раз- Pascal(Паскаль)

uses crt;

var
  a: array [0 .. 9] of boolean;
  c: char;
  i, k: integer;

begin
  for i := 0 to 9 do
    a[i] := false;

  writeln('Введите строку заканчивающиеся точкой.');
  read(c);
  while c <> '.' do
  begin
    read(c);
    if c in ['0' .. '9'] then
    begin
      k := ord(c) - ord('0');
      a[k] := true
    end;

  end;

  k := 0;
  for i := 1 to 9 do
    if a[i] then
    begin
      k := k + 1;
      write(i)
    end;
  writeln;
  writeln('Результат: ', k);

end.