Нужна помощь по паскалю!

Question

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются буквы от 'T до 'X' и цифры от '1' до '4', встречающиеся в заданной последовательности символов.

Марина · Accepted Answer

var m:set of char; s:string; c:char; i:byte; 
begin 
readln(s); m:=[]; for i:=1 to length(s) do if s[ i]in['T'..'X','1'..'4']then include(m,s[ i]); 
for c:='1' to'X' do if c in m then write(c); writeln; readln 
end.