Кто знает как делать это

[ProBeginner]

Если не врёте с формулировкой, то массив C вроде не нужен.
Множества представлены целыми числами и фактически, задача просто сделать выборку чисел уникальных и повторяющихся.

[CMY_3]

Множества представлены целыми числами

Кэп Ваш, множественный тип по определению целочисленный, а точнее простого порядкового типа, ограниченного по диапозону 0..255

Если не врёте с формулировкой

С какой формулировкой?

[Serge_Bliznykov]

CMY_3, Вы путаете порядковый и целочисленный типы.
Да, множество должно иметь в основе порядковый тип.
Но это отнюдь не означает, что элементы множества должны быть целые числа.

например,

  Var A : Set Of Char; 
        B : Set Of 'a'..'z'; 
        C : Set Of Boolean;

type
	week_days = (Mon, Tue, Wed, Thu, Fri);
var
	work_days: set of week_days;

впрочем, это всё равно не объясняет, зачем ПРИНЦИПИАЛЬНО нужен массив C
Да и не важно это.
Уже задача давно решена!

[ProBeginner]

Сообщение от CMY_3

Кэп Ваш, множественный тип по определению целочисленный

Я не вижу определения у ТС слову "тип". И моя скромная практика показывает, что если в программе на Паскале есть array, то про set в студенческих задачах не вспоминают.

[Serge_Bliznykov]

Сообщение от ProBeginner

что если есть array, то про set в студенческих задачах не вспоминают.

Ошибаетесь. Вспоминают.
И тут на форуме полно примеров.
Да и посмотрите решение в данной теме.
Оно как раз через множества и сделано.
Чтобы найти элементы, которые есть в обоих множествах A и B достаточно написать

A*B

и всё!
А чтобы сделать то же самое с массивами вам понадобятся циклы, да ещё и вложенные, да ещё и неэффективные (полный перебор).

Плохо, что в стандартном Паскале не придумали, как выводить содержимое множества. Хотя в том же PascalABC/PABC.NET авторы языка это позволяют.

[CMY_3]

Я не вижу определения у ТС слову "тип".

В данном случае, речь о стандартном типе, который определять может только документация ЯП.

[ProBeginner]

Сообщение от CMY_3

В данном случае, речь о стандартном типе, который определять может только документация ЯП.

Я не понял, вы ясновидец или Vika2016 сменившая регистрацию?

[Vika2016]

Сообщение от CMY_3

program work_prog;
{$mode fpc}
const
  Nm = 100;
var
  A, B, mn : set of byte;
  C : array[1..Nm] of byte;
  n,i : byte;
begin
  write('Размер массива <=',Nm,' n = '); readln(n);
  randomize;
  A:=[]; B:=[];
  writeln('Массив C:');
  for i := 1 to n do begin
    C[i]:=random(15);
    write(C[i]:3);
    if (i<=n div 2) then A := A + [C[i]]
    else B := B + [C[i]];
  end;
  writeln(#10,#13,'Множество А:');
  for i := 1 to 255 do
    if i in A then write(i:3);
  writeln(#10,#13,'Множество B:');
  for i := 1 to 255 do
    if i in B then write(i:3);
  mn := A * B;
  writeln(#10,#13,'Список общих элем:');
  for i := 1 to 255 do
    if i in mn then write(i:3);
  writeln(#10,#13,'Список различных элем:');
  mn := A - B;
  for i := 1 to 255 do
    if i in mn then write(i:3);
  mn := B - A;
  for i := 1 to 255 do
    if i in mn then write(i:3);
  readln;
end.

Огромное вам спасибо за помощь а также всем кто принимал участие в решени задачи

А что значит вот это

#10,#13

?

[ProBeginner]

Управляющие символы для терминала - конец строки и перевод каретки.

[Serge_Bliznykov]

Вика, замените все строчки
вида

writeln(#10,#13,'какой-то текст');

на

WriteLn;
WriteLn('какой-то текст');

так будет проще и надежней!