Ребята,есть небольшой вопрос по Pascal;)

[Даник]

1)Множество:
Ввести строку символов,заканчивающуюся #.
Написать программу,которая выведет на экран:
A)Только цифры и буквы из введенной строки.
Б)Кол-во каждой из цифр,каждой из букв.
___________________________________ ________________________
2)Записи:
Написать программу,которая вводит с клавиатуры данные о n лицах (n≤50): фамилию,имя,дату рождения(день,месяц,год),и выводит на экран возраст в годах для каждого лица.
___________________________________ ________________________
3)Файлы:
Создать файл,который содержит различные даты.Каждая дата-это число,месяц,год;
Записать в текстовый файл на отдельных строках:
A)Год с наименьшим номером;
Б)Все весенние даты.
В)Самую позднюю дату.

[Тупой]

ну, а в чем заключается небольшой вопрос?

[alex_fcsm]

uses crt;
var s:string;
    q,q1:set of char;
    i:integer;
    
begin
q:=['а'..'я','А'..'Я','0'..'9'];
q1:=[];
i:=1;
readln(s);
while s[i]<>'#' do
 begin
  if (s[i] in q)and(not (s[i] in q1)) then begin
                     q1:=q1+[s[i]];
                     writeln(s[i]);
                    end;
  inc(i);
 end;
end.