нород помогите с задачкой плисс

[J_o_h_n_]

Даны 2а пустых множества
1 set of char
2 set of byte
вывести строку и перевсти ее в множество символьного типа , перевести код из символьного множества в множество Byte

[EvKont]

type
mChar = set of char;
mByte = set of byte;
var
str : string;
num : integer;
mnC : mChar;
mnB : mByte;
begin
write('String: '); readln(str);
for num := 0 to Length(str) do
begin
mnC := mnC + [str[num]];
mnB := mnB + [byte(str[num])];
end;
end.