задача на множества Опции

[natik3]

Дана последовательность из n натуральных чисел.Написать программу,которая выводит в возрастающем порядке все цифры,которые входят хотя бы в одно число.

[Krjuger]

О множествах я не подумал вообще))))Да ваш вариант наиболее оптимальный, по крайне мере еще лучше я придумать не могу.

[natik3]

О множествах я не подумал вообще))))Да ваш вариант наиболее оптимальный, по крайне мере еще лучше я придумать не могу.

Код

program str155n10;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
const n = 4;
var
   a : array[1 .. n] of integer;
   i, x : Integer;
   s : set of byte;
   b : boolean;
   Procedure Vvod(var a:integer);
  // i:integer;
   begin
   for i:=1 to n do
   read(a[i])
   end;
   Function Print_mas (var a:integer):integer;
   for i:=1 to n do
   begin
   write(a[i]);
   end;
begin
Vvod(a);
Print_mas(a);
   s := [];
   for i := 1 to n do
   begin
      X := a[i];
      b := true;
      while b or (X <> 0) do
      begin
         s := s + [x mod 10];
         b := false;
         x := x div 10;
      end;
   end;

   for i := 0 to 9 do
      if i in s then write(i:2);
   writeln;
   readln;
end.

с Вводом помогите разобраться