множественные типы данных (delphi)

[adaptes]

пожалуйста помогите!
как сделать так чтобы программа выдавала только те символы, которые входят в множество, 1 раз. то есть сейчас программа выдает все символы введенные пользователем, а нужно чтобы выдавала только по 1 символу

program laba9;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  windows,
  math;

const mnog=['3'..'9','A'..'F',':','!','.',';','?','&'];
var stroka:string;
s: set of char;
i:integer;
begin
setconsoleoutputcp(1251);
write('Введите строку произвольных символов: ');
readln(stroka);
writeln;
write('Символы строки входящие в множество: ');
for i:=1 to length(stroka) do
begin
if stroka[i] in mnog then include(s,stroka[i]);
if stroka[i] in s then write(stroka[i]);
end;
readln;
end.

[Stilet]

Предлагаю так:

for i:=1 to length(stroka) do
begin
 if stroka[i] in mnog then include(s,stroka[i]);
end;
for c:=#0 to #255 do if c in s then write(c);

Где с:char;

[adaptes]

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

Предлагаю так:

for i:=1 to length(stroka) do
begin
 if stroka[i] in mnog then include(s,stroka[i]);
end;
for c:=#0 to #255 do if c in s then write(c);

Где с:char;

все равно не получается

[Аватар]

Да прям не получается. Добавь var s: TSysCharSet; c: Char;
можно и s: set of char; оставить, не заметил

и перед первым циклом s:=[];

[adaptes]

Сообщение от Аватар

Да прям не получается. Добавь var s: TSysCharSet; c: Char;
можно и s: set of char; оставить, не заметил

и перед первым циклом s:=[];

спасибо большое! но что значит строчка: s:=[];
и как сделать чтобы символы выводились в порядке их ввода

[Аватар]

s:=[]; //присвоили пустое множество
for i:=1 to length(stroka) do
  if stroka[i] in mnog then begin
    if not (stroka[i] in s) then write(stroka[i]);
    include(s,stroka[i]);
  end;

[adaptes]

Сообщение от Аватар

s:=[]; //присвоили пустое множество
for i:=1 to length(stroka) do
  if stroka[i] in mnog then begin
    if not (stroka[i] in s) then write(stroka[i]);
    include(s,stroka[i]);
  end;

но зачем пустое множество присваивать, объясните пожалуйста

[Stilet]

Для инициализации чтоб исключить мусор перед циклом в множестве.
Это не то чтобы необходимость, но признак хорошего тона.