Сформировать и вывести множество чисел, делящихся на заданное число - Pascal

Формулировка задачи:

Не получается задача По введенному множеству натуральных чисел заданного диапазона сформировать и вывести множество чисел, делящихся на заданное число.

Решение задачи: «Сформировать и вывести множество чисел, делящихся на заданное число»

Листинг программы

var n,i,x:byte;
    m1,m2:set of byte;
begin
repeat
write('Введите мощность исходного множества от 2 до 255 n=');
readln(n);
until n in [2..255];
randomize;
writeln('Исходное множество');
m1:=[];
for i:=1 to n do
 begin
  repeat
   x:=random(256);
  until not(x in m1);
  m1:=m1+[x];
  write(x:4);
 end;
writeln;
write('Введите натуральное число для проверки элементов множества на кратность ему');
readln(x);
m2:=[];
for i:=0 to 255 do
if (i in m1)and(i mod x=0)then m2:=m2+[i];
if m2=[] then write('В исходном множестве нет чисел, кратных ',x)
else
 begin
  writeln('Множество чисел, кратных ',x);
  for i:=0 to 255 do
  if i in m2 then write(i:4)
 end
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal. Вот список действий, которые выполняются в этом коде:

Переменные n, i, x объявляются как byte.
Объявляются две переменные-множества m1 и m2 типа set of byte.
Пользователю предлагается ввести мощность исходного множества от 2 до 255.
После ввода мощности исходного множества, программа генерирует случайные числа от 0 до 255 и добавляет их в множество m1, пока множество не будет полным (то есть, пока не будет содержать 10 чисел).
Каждое число из m1 выводится в консоль в 4-х разрядном формате.
Пользователю предлагается ввести натуральное число для проверки элементов множества на кратность ему.
Затем, для каждого числа от 0 до 255, проверяется, является ли оно элементом множества m1 и делится ли оно на число, введенное пользователем. Если это так, то число добавляется в множество m2.
Если m2 пустое, то выводится сообщение В исходном множестве нет чисел, кратных x.
В противном случае, выводится сообщение Множество чисел, кратных x, а затем выводятся все числа из m2 в 4-х разрядном формате.