Использование множеств Опции

[xekzzz]

Ужасно не могу решить такую лёгкую задачу (((
Помогите пожалуйста.

Даны 3 множества. Первое множество А заполнить символами латинского алфавита в интервале от a до g, второе множество В заполнить в интервале от c до m. Третье множество заполнить применив операцию пересечения двух множеств, т. е. A*B. Необходимо проверить в какое из множеств входит введенный с клавиатуры символ, а также узнать порядковый номер символа в таблице ASCII.


Теоретически понятно а вот с кодом что то туплю (((
Заполняем А
Заполняем B
Пересечение A*B
Проверяем символ, номер символа ASC II

Вот только могу символ вывести:

uses crt;
   var n:integer;
x:char;
begin
    clrscr;
writeln('Введите символ ->');
    readln(x);
write(x);n:=ord(x); writeln('->',n);
readln(n);x:=chr(n);writeln('->',x);
end.

.

[xekzzz]

Спасибо огромное compiler!!! буду разбираться!!!