Получить новую строку из символов первой строки, которых нет во второй - Turbo Pascal

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

дана срока, состоящая из букв и цифр, и строка из цифр и других знаков. Получить новую строку из символов первой строки, которых нет во второй. Для решения использовать структуру – множество. помогите пожалуйста

Решение задачи: «Получить новую строку из символов первой строки, которых нет во второй»

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

s3:='';
for i:=1 to length(s1) do
if pos(s1[i],s2)=0 then s3:=s3+s1[i];

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

Создается переменная s3, которая инициализируется пустой строкой ('').
Затем происходит цикл for, который начинается с i=1 и продолжается до длины переменной s1.
Внутри цикла проверяется условие: если текущий символ из s1 присутствует в s2 (то есть, если pos(s1[i],s2) не равен 0), то текущий символ добавляется в s3.
После завершения цикла, переменная s3 содержит строку, полученную из символов первой строки, которых нет во второй.
Код завершается, и переменная s3 остается в области видимости, содержащей результат выполнения программы.