Написать программу формирования множества

[maxim1592]

Написать программу формирования множества, состоящего из произвольных символов. Формирование множества заканчивается символом «точка». Вывести на экран элементы полученного множества. Найти мощность данного множества и вывести на экран.

вот часть проги, а как склепать все в одно. не знаю...

var w: set of char;
K: char;
begin
{ Ввод символов в множество W }
w: = [];   {Задаем пустое множество }
repeat
read (k);
w: =w+ [k]; {Добавляем новый символ в множество}
until k=’.’;

Вывод различных символов, входящих в сформированное множество, выглядит так:

for k: =#0 to #255 do
if k in w then write (k);

[ZX Spectrum-128]

Кроме определения мощности множества.

var 
 w: set of char;
 K: char;
begin
{ Ввод символов в множество W }
w: = []; {Задаем пустое множество }
repeat
read (k);
w: =w+ [k]; {Добавляем новый символ в множество}
until k=’.’;
{Вывод различных символов, входящих в сформированное множество, выглядит так:}
for k: =#0 to #255 do
if k in w then write (k);
end.

[maxim1592]

спасибо большое

[Serge_Bliznykov]

а для определения мощности множества надо банально завести целочисленную переменную
и подсчитать в цикле, сколько
if k in v then УвеличитьСчётчик.
Вот этот счётчик и даст мощность множества...

[ZX Spectrum-128]

{Написать программу формирования множества, состоящего из произвольных
символов. Формирование множества заканчивается символом <точка>. Вывести
на экран элементы полученного множества. Найти мощность данного множества
и вывести на экран.}

var
  w: set of char;
  K: char;
  n:integer;
begin
  { Ввод символов в множество W }
  w:= []; {Задаем пустое множество }
  while k<>'.' do
    begin
      read(k);
      w:=w+ [k]; {Добавляем новый символ в множество}
    end;
    w:=w-['.']; {Убираем точку}
  {Вывод различных символов, входящих в сформированное множество, выглядит так:}
  for k:=#0 to #255 do
    if k in w then
      begin
        write (k);
        inc(n);
      end;
  Writeln;
  Writeln('Мощность множества = ',n);
end.