Выделить множества чисел, делящихся на 6 без остатка

program mas;
uses crt;
var a:array[1..100] of integer;
    i,n,k,k1,k2:integer;
    s1:real;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva n = ');
    readln(n);
     writeln('Исходный массив');
     for i:=1 to n do
     begin
     a[i]:=random(100);
     Write(a[i]:3)
     end;
 
          writeln;
         writeln('Числа кратные 6');
            k:=k+1;
            for i:=1 to n do
            if (a[i] mod 6 = 0)and(a[i]<>0)  then
                begin
                write (a[i]:3);
                k:=k+1;
                end;
           if k=0 then
           writeln('В массиве нет чисел делящихся на 6 без остатка ');
           writeln;
           writeln('Числа кратные 2');
           k1:=k1+1;
            for i:=1 to n do
            if (a[i] mod 2 = 0)and(a[i]<>0)  then
                begin
                write (a[i]:3);
                k1:=k1+1;
                end;
           if k1=0 then
           writeln('В массиве нет чисел делящихся на 2 без остатка ');
           writeln;
           writeln('Числа кратные 3');
           k2:=k2+1;
            for i:=1 to n do
            if (a[i] mod 3 = 0)and(a[i]<>0)  then
                begin
                write (a[i]:3);
                k2:=k2+1;
                end;
           if k2=0 then
           writeln('В массиве нет чисел делящихся на 3 без остатка ');
     readln;
end.

program mas;
uses crt;
Type Tb = byte;
     Tm = Set of Tb;
var a:array[1..100] of integer;
    i,n,k,k1,k2:integer;
    m,m1,m2:tm;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva n = ');
    readln(n);
     writeln('Исходный массив');
     for i:=1 to n do
     begin
     a[i]:=random(100);
     Write(a[i]:3)
     end;
 
            k:=k+1;
            for i:=1 to n do
            if (a[i] mod 6 = 0)and(a[i]<>0)  then
                begin
                m:=m+[a[i]];
                k:=k+1;
                end;
           if k=0 then
           writeln('В массиве нет чисел делящихся на 6 без остатка ');
 
           k1:=k1+1;
            for i:=1 to n do
            if (a[i] mod 2 = 0)and(a[i]<>0)  then
                begin
                m1:=m1+[a[i]];
                k1:=k1+1;
                end;
           if k1=0 then
           writeln('В массиве нет чисел делящихся на 2 без остатка ');
 
           k2:=k2+1;
            for i:=1 to n do
            if (a[i] mod 3 = 0)and(a[i]<>0)  then
                begin
                m2:=m2+[a[i]];
                k2:=k2+1;
                end;
           if k2=0 then
           writeln('В массиве нет чисел делящихся на 3 без остатка ');
           writeln;
           writeln('Числа кратные 6');
           for i:=1 to 255 do
                begin
                if i in m then
                write (i:3);
                end;
                writeln;
                writeln('Числа кратные 2');
           for i:=1 to 255 do
                begin
                if i in m1 then
                write (i:3);
                end;
                writeln;
                writeln('Числа кратные 3');
            for i:=1 to 255 do
                 begin
                 if i in m2 then
                 write (i:3);
                 end;
     readln;
end.