Множества

[drinian]

Пожалуйста помогите решить эту задачу с использованием множеств:

В строковую переменную вводится некоторое слово . Определить , будет ли это слово правильной записью идентификатора в паскале .

P.S. заранее Благодарен ^_^

[Zer0]

goodStart:=['A'..'Z'];
goodSymb:=['A'..'Z','0'..'9','_'];
good:=true;
if not (UpCase(s[i]) in goodStart) then good:=false;
i:=1;
while (i<length(s)) and good then begin
 inc(i);
 if not (UpCase(s[i]) in goodSymb) then good:=false;
end;
if good then writeln ('Pravilnaya zapis') else writeln ('Nepravilnaya zapis');

Разбирайтесь)