Паскаль множества

[ololoshqa]

Введите символьное множество. Разбейте его на три подмножества:цифры,буквы и специальные символы.Проверьте есть ли среди них пустое множество.
Помогите решить.

[DoDge_VipeR]

берем массив символов
сортируем
цифры в один массив
буквы в другой
остальной мусор в третий
если длина любого из массивов = 0 значит есть)

[Serge_Bliznykov]

Сообщение от DoDge_VipeR

берем массив символов

DoDge_VipeR, не сбивайте новичка! Ему же нужно решить через использование множеств. А массив и множества - это две большие разницы!!

var s0, s1, s2, s3 : set of char;
   s : string;
   i : integer;
   ch : char;
begin
   s1 := []; s2 := []; s3 := [];

   {ввод данных}
   Readln(s);
   for i:=1 to Length(s) do Include(s0, s[i]);

   {рассортировка множества}
   for ch:= ' ' to #255 do begin
     if ch in s0 then begin
       if ch in ['0'..'9'] then Include(s1, ch);
       if ch in ['A'..'Z','a'..'z'] then Include(s2, ch);
       if ch in ['!'..'/',':'..'@'] then Include(s3, ch);
     end;
   end; 

   if s1= [] then WriteLn('Множество цифр - пустое');
   if s2= [] then WriteLn('Множество букв - пустое');
   if s3= [] then WriteLn('Множество спец.символов - пустое');

   readln;
end.