На вход программе подается последовательность символов, заканчивающаяся точкой. Требуется написать программу, которая определяет, есть ли в этой последовательности десятичные цифры, и выводит наибольшее число, которое можно составить из этих цифр. Ведущих нулей в числе быть не должно (за исключением числа 0, запись которого содержит ровно одну цифру). Если цифр нет, программа должна вывести на экран слово «Нет», если есть –слово «Да» и в следующей строчке искомое число. Например, если исходная последовательность была такая:
 Day 10? mice 8: “Year” 7 is a mistake 91.
то результат должен быть следующий:
Да 
987110

Решение:

program n1;
uses crt;
var i,j,f:integer;
s:string;
a:array [0..9] of integer;
begin
   f:=0;
   readln (s);
   i:=1;
   while (s[i]<>'.') do begin
    for j:=0 to 9 do
         if s[i]= inttostr(j) then begin a[j]:=a[j]+1;
         f:=1;
         end;
         i:=i+1;
                        end;
 if f=0 then writeln ('Чисел нет')
 else begin
          writeln ('Да');
         for i:=9 downto 0 do
          for j:=1 to (a[i]) do write (i);
      end;
end.