OS
One Step Closer
if m=[] then ...
это как - нет элементов? напиши условие задачи
Если я вас правильно понимаю
procedure test;
var
s: set of char;
begin
// Шаманство всякое типа s := ['a'..'z'];
if s = [] then
WriteLn('Пустое')
else
WriteLn('Непустое')
end;