решите тест! Нужны ответы.

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.
    

Program n1;
   uses crt;
const nn=1000;
var 
     m: array[1..nn,1..nn] of integer;
     n,i,j: integer; 
     s: real;
begin
    clrscr;
    randomize;
//Определяем размеры массива
writeln('Введите размерность'); readln(n);
//Заполняем массив рандомными числаслами
for i:=1 to n do
   for j:=1 to n do m[i,j]:=random(100)-50;
//Выводим таблицу(массив) на экран
for i:=1 to n do begin
  for j:=1 to n do write(m[i,j]:4);  writeln; 
end;
//Считаем среднее арифметическое столбцов и выводим номера
for j:=1 to n do begin 
  s:=0; {Обнуляем переменную перед началом каждого вложенного цикла} 
     for i:=1 to n do begin 
          s:=s+m[i,j]; {Считаем сумму элементов столбца}
      end;
   s:=s/n; {Считаем среднее арифметическое} 
 if s<0 then write(j:3); {Проверяем условие задачи}
 end;
 end.