Заполнить информатика и с объяснением

Var i,n,m: integer;
    a: set of 0..9;
    b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9];
     c: array[1..200] of integer;
begin
  write(' N = ');
  readln(n);
  Randomize;
  for i:=1 to n do
  begin
    c[i]:=Random(255);
    write(c[i],' ');
  end;
  writeln;
  a:=[];
  for i:=1 to n do
   begin
    m:=c[i];
    while (m>0) do
    begin
      a:=a+[(m mod 10)];
      m:=m div 10;
    end;
  end;
  b:=b-a;
  if b<>[] then
  begin
    write('в записи чисел массива не содержатся цифры :  ');
    foreach i in b do write(i,' ');
  end
  else
 writeln('встречаются все цифры');
end.
    

2 в.н.э - Изобретение технологии изготовления бумаги в Китае
Середина 15 в. - Начало книгопечатания в Европе
2-1 тысячелетия до н.э - Появление алфавитного письма в Финикии
80- гг. 20 в. - Появление первых лазерных дисков
5-15 тысячелетия до н.э - Первые следы иероглифического письма в Древнем Египте
Середина 16 в - Начало книгопечатания в Росии
60-е гг. 20 в. - Появление первых жестких дисков для компьютеров
1895 г - Демонстрация первого кинофильма
70-е гг 19 в -  Первая запись звука с фонографа
20-е гг 20 в - Изобретение магнитофона
1839 г. - Изобретение фотографии