PascalABC,множества

[Лагуна]

Здравствуйте! Помогите пожалуйста разобраться с задачами!
Во всех задачах необходимо распечатать множество,удовлетворяющее указанному условию и подсчитать количество элементов в полученном массиве.
1) Даны n целых чисел( числа вводятся с клавиатуры или с помощью датчика случайных чисел). Напечатать в порядке возрастания те из них, которые удовлетворяют условию:
делятся нацело на 3 и 8.

2)В классе учится n учеников. Известны их имена. Известно так же кто был в гостях у Кати, кто был у Васи и т.д
определить есть ли в классе хотя бы один человек, который не был в гостях ни у кого из своих одноклассников. если есть такие ученики, то вывести их имена, если нет то сообщить об этом.
3)дана последовательность русских слов , между соседними словами запятая ,за последним словом точка. напечатать в алфавитном порядке все заглавные буквы, которые встречаются хотя бы в одном слове.


Заранее спасибо большое!!!

[IT-man]

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

k:=0;
For i:='А' to 'Я' do
if pos(i,s)<>0 then begin write (i,'  ');k:=k+1;end;