Дано m чисел найти цифры которые есть в записи каждого из m чисел( pascal ABC)

По условию требовался код на PascalABC, а решение представлено в PascalABC.NET

Исправил

var  i, j, m, n: integer;  a, b: array[0..9] of boolean;  begin  for i := 0 to 9 do a[i] := true;  write('Введите количество чисел: ');  read(m);  write('Введите числа: ');  for i := 1 to m do  begin    for j := 0 to 9 do b[j] := false;    read(n);    if n = 0 then a[0] := true;    while n <> 0 do    begin      b[n mod 10] := true;      n := n div 10;    end;    for j := 0 to 9 do a[j] := a[j] and b[j];  end;  for i := 0 to 9 do if a[i] then write(i, ' ');end.