Найдите и выведите все непростые делители числа М

function prime(n: integer): boolean; {определение простоты числа}
var i: integer;
begin
  if n < 2 {если < 2,}
    then prime := false {то не простое}
    else begin {иначе проверяем}
      prime := true; {пока считаем число простым}
      for i := 2 to trunc(sqrt(n)) do {цикл поиска делителей, почему до корня из n, сами подумайте}
        if n mod i = 0 {если делитель найден,}
          then begin {то}
            prime := false; {число не простое}
            break {выходим из цикла досрочно, дальнейшая проверка смысла не имеет}
          end
    end
end;
 
type sob = set of byte; {...}
 
procedure prn_set(s: string; x: integer; b: sob);  {...}
var i: integer;
begin
  writeln(s, x, ':');
  for i := 1 to x do if i in b then write(i, ' ');
  writeln
end;
 
var a, k: sob;  {...}
    m, i: integer;
 
begin
  repeat {ввод m, m в диапазоне 1..255}
    write('m = ');
    readln(m);
    if (m < 1) or (m > 255) then writeln('m out of range 1..255, reenter.')
  until (m >= 1) and (m <= 255);
  a := [1, m]; {ну, два делителя у числа всегда есть}
  if prime(m)
    then k := [m] {если само число простое, то делителей к него искать уже не надо}
    else begin {если число не простое}
      k := []; {простых делителей пока не найдено}
      for i := 2 to m div 2 do {ищем все остальные делители числа}
        if m mod i = 0 {если делитель найден}
          then begin
            include(a, i); {включаем его в множество A}
            if prime(i) then include(k, i) {если делитель простой, включаем его в множество B}
          end
    end;
  prn_set('All dividers of ', m, a); {печатаем множество всех делителей}
  prn_set('Prime dividers of ', m, k); {печатаем множество простых делителей}
  prn_set('Composite dividers of ', m, a - k);
  {...печатаем разность множеств всех делителей числа и простых делителей числа}
  readln
end.