** вход программе подаётся последовательность символов, заканчивающаяся точкой. Требуется...

Question

На вход программе подаётся последовательность символов, заканчивающаяся точкой. Требуется написать программу, которая определяет, есть ли в этой последовательности цифры, и выводит НАИБОЛЬШЕЕ число, которое можно составить из этих цифр. Ведущих нулей быть не должно, за исключением одного нуля. Если числа нет, выводится сообщение 'no', если число есть - 'да' и в следующей строке искомое число.
Например, если исходная последовательность была такая: Day 10, mice 8: "Year" 7 is a mistake 91.
То результат должен быть следующий:
Да
987110

Answer 1

Var
   A:array['0'..'9'] of longint;
   C:char;
   i:integer;
Begin
For C:= '0' to '9' do A[C]:=0;
Repeat
Read(C);
if C in['0'..'9'] then A[C]:=A[C]+1;
Until C = '.';
if (A['1']=0)and(A['2']=0)and(A['3']=0)and(A['4']=0)and(A['5']=0)and(A['6']=0)and(A['7']=0)and(A['8']=0)and(A['9']=0) then
   if A['0']=0 then Write('no')
   else
      Begin
      WriteLn('Да');
      WriteLn(0);
      End
else
   Begin
   WriteLn('Да');
   For C:='9' downto '0' do
       For i:= 1 to A[C] do
           Write(C)
   End
End.

Answer 2

Begin
  var s := readstring();
   if(s.Any(x -> x.isDigit)) then
   begin
  if(s.Any(x->x in['1'..'9'])) then
  s.Where(x -> x.IsDigit).OrderByDescending(x -> x).Println
  else
  write(0);
  end
  else
writeln('No');
 end.

Comments

"Ведущих нулей быть не должно, за исключением одного нуля."

---

begin
var s := readstring();
if(s.Any(x -> x.isDigit)) then
begin
writeln('Да');
if(s.Any(x -> (x = '1') or (x = '2') or (x = '3') or (x = '4') or (x = '5') or (x = '6') or (x = '7') or (x = '8') or (x = '9'))) then
s.Where(x -> x.IsDigit).OrderByDescending(x -> x).Println
else write(0);
end
else writeln('No');
end.

---

x in ['1'..'9']...

---

И не сюда, а ответ исправьте

---

Я пытался. Пишет слишком поздно исправлять ответ ...