Тип данных Set of - Pascal

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

Всем доброго вечера. Мне надо вывести знаки арифметических операций и знаки препинания на экран с помощью типа данных Set of. Объясните пожалуйста как это можно сделать.

Решение задачи: «Тип данных Set of»

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

program proga;
var a,x:set of char;
    s:string;
    i,j:integer;
begin
   a:=['+','-','=','/',',','.','!'];
   writeln('vvedite posledovayelnost');
   read(s);
   writeln('preobrazovannaya posled.');
   x:=[];
   for i:=1 to length(s) do
      if s[i] in a then x:=x+[s[i]];
   for j:=1 to 255 do
      if chr(j) in x then
         write(chr(j));
 
end.

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

Создается программа proga.
Объявляются переменные: a, x - тип данных set of char; s - тип данных string; i, j - типы данных integer.
Создается множество a с элементами ['+','-','=','/',',','.','!'].
Выводится сообщение vvedite posledovayelnost (введите последовение).
Считывается строка s.
Выводится сообщение preobrazovannaya posled..
Создается пустое множество x.
Запускается цикл for для каждого символа в строке s:
- Проверяется, содержится ли текущий символ в множестве a.
- Если да, то к множеству x добавляется символ из множества a.
Запускается цикл for для каждого числа от 1 до 255:
- Проверяется, содержится ли текущее число в множестве x.
- Если да, то выводится символ, соответствующий данному числу (с помощью функции chr()).
Программа завершается.