помогите до решать задачу на Множества

[pelsh]

Ввести 10 символов в множество символов A и вывести в алфавитном порядке все элементы множества А




var
i,m,k:integer;
j:char;
x,c:string;
a: array [1..10] of char;
b:set of char;
begin
b:=[];
for i:=1 to 10 do
begin write('Vvedite ',i,' - element: ');
readln (x);
b:=b+[x[i]];
end;
for j:=#0 to #255 do
if j in b then

c:=c+j;

write(c);

она не закончена
но начало должно быть таким наверное....

[AidarBik]

Только с массивом смог сделать:

program Project1;

{$APPTYPE CONSOLE}

var
i, j: Integer;
x: Char;
b: Array [0..9] of Char;
begin
for i:=0 to 9 do
begin
Write('Vvedite ', i + 1, ' - element: ');
Readln(x);
b[i]:=x;
end;
for i:=0 to 255 do
for j:=0 to 9 do
if b[j] = Chr(i) then Write(b[j], ' ');
Readln;
end.

[Jeni]

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

Ввести 10 символов в множество символов A и вывести в алфавитном порядке все элементы множества А

Если речь идет о множестве А, то нужно изменить раздел var, тем более что массив нигде не используется.

var
  A: set of Char;

И цикл изменить

for i:=1 to 10 do
begin 
  write('Vvedite ',i,' - element: ');
  readln (x);
  include(a, x[1]); // Добавить во множество первый символ строки (если введено несколько символов)
end;

Вывод на экран

  C := '';
  for I := 0 to 255 do
    if Char(I) in A then C := C + Char(I);

  WriteLn(C);
  readln;