ПОМОЩЬ!!!
С клавиатуры вводится две строки. Символы в них не повторяются, т.е. стоят в разнобой. Вывести на экран только те символы, которые являются общими. используя МНОЖЕСТВА!

Просто мы с этим не работаем, и меня в этом винито не надо

В чем? В нежелании пользоваться справками и поиском? Вы же не какую-то особенность просите объяснить, а НАЗНАЧЕНИЕ СТАНДАРТНОЙ ФУНКЦИИ, а это есть проявление лени: проще спросить, чем посмотреть.

Я просто хотела сказать, что мы это не используем

Да вы можете 99% средств Паскаля не использовать - и что?

таким образом, то что мы не используем брать нельзя

Решение задачи - в прилагаемом файле

"Школьный вариант" (чтобы помучиться):// PascalABC.Net 3.0б сборка 1066var  s1,s2:string;  p,q:set of char;  i:integer;  c:char;begin  Write('Введите первую строку: '); Readln(s1);  Write('Введите вторую строку: '); Readln(s2);  p:=[]; q:=[];  for i:=1 to Length(s1) do Include(p,s1[i]);  for i:=1 to Length(s2) do Include(q,s2[i]);  p:=p*q;  for c:=' ' to Chr(255) do    If c in p then Write(c,' ');  Writelnend.  Тестовое решение:Введите первую строку: Карл у Клары украл кораллыВведите вторую строку: Клара у Карла украла кларнет  К а к л р у Современный вариант:// PascalABC.Net 3.0б сборка 1066begin  var s1:=ReadlnString('Введите первую строку: ');  var s2:=ReadlnString('Введите вторую строку: ');  Writeln('Общие символы в строках: ',s1.Intersect(s2).Sorted);end.Тестовое решение:Введите первую строку:  Карл у Клары украл кораллыВведите вторую строку:  Клара у Карла украла кларнетОбщие символы в строках: [ ,К,а,к,л,р,у]