Написать программу (Множества)

[Naastyaaa]

Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.

Вроде работает правильно, но вывод на экран не происходит.

SetOne:=['а','е','и','о','у','ы','э','ю','я'];{гластные}
    write('Enter string :');readln(InputString);{вводим строку}
    if pos('.',InputString)=0
      then InputString := InputString + '.'{ставим точку если пользователь забыл}
      else while InputString[length(InputString)]<>'.' do
        delete(InputString,length(InputString),1);{удаляем все символы после точки, если ввел лишнее}
    writeln('Result:',InputString);{выводим строку}
    {сброс счетчиков букв и рабочих множеств}
    WordCount:=1;{счетчик слов}
    SetChar:=[];{множество гласных букв в одном слове}
    writeln;
    While length(InputString)>0 do{}
      begin
        if (InputString[1]='.') or (InputString[1]=',')then{если точка или запятая - новое слово}
          begin
            inc(WordCount);{увеличиваем счетчик слов}
            SetOne:=SetOne * SetChar;{пересечение множеств, остаются только те буквы, которые есть в обоих множествах}
            SetChar:=[];{сбрасываем текущее множество}
          end
          else
          begin
            if InputString[1]in SetOne then
              SetChar:=SetChar + [InputString[1]];{если буква принадлежит множеству гласных, записываем текущего слова}
          end;
        delete(InputString,1,1);{удаляем первый символ строки}
      end;
    writeln('Count:',WordCount);
    write('One :');{выводим результат первой задачи}
    for WordCount:=0 to 255 do
      if chr(WordCount)in SetOne then write(chr(WordCount):2);
    writeln;
    readln;
  end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Какой Паскаль? Если Паскаль ABC.NET, то там не работает цикл for xxx:=0 to 255 do - русские символы имеют другие коды.
но там цикл и не нужен, чтобы вывести множество достаточно просто WriteLn(SetOne):

var  SetOne, SetChar : set of char;
 InputString :string;
 WordCount : integer; 
begin 

    SetOne:=['а','е','и','о','у','ы','э','ю','я'];{гластные}

    // write('Enter string :');readln(InputString);{вводим строку}
    InputString :='маму,умыла,румба'; // вместо ввода зададим строку константой, для отладки
    
    if pos('.',InputString)=0
      then InputString := InputString + '.'{ставим точку если пользователь забыл}
      else while InputString[length(InputString)]<>'.' do
        delete(InputString,length(InputString),1);{удаляем все символы после точки, если ввел лишнее}
    writeln('Result:',InputString);{выводим строку}
    {сброс счетчиков букв и рабочих множеств}
    WordCount:=0;{счетчик слов}
    SetChar:=[];{множество гласных букв в одном слове}
    writeln;
    While length(InputString)>0 do{}
      begin
        if (InputString[1]='.') or (InputString[1]=',')then{если точка или запятая - новое слово}
          begin
            inc(WordCount);{увеличиваем счетчик слов}    
            SetOne:=SetOne * SetChar;{пересечение множеств, остаются только те буквы, которые есть в обоих множествах}
            SetChar:=[];{сбрасываем текущее множество}
          end
          else
          begin
            if InputString[1]in SetOne then Include(SetChar, InputString[1]); //{если буква принадлежит множеству гласных, записываем текущего слова}
          end;
        delete(InputString,1,1);{удаляем первый символ строки}
      end;
    writeln('Count:',WordCount);
    write('One :');{выводим результат первой задачи}
    WriteLn(SetOne);
    //readln;
  end.

p.s. команда удаления символа из строки (и особенно первого символа) крайне не эффективна.
Намного лучше в данном случае использовать цикл по i для всех символов строки.

[Naastyaaa]

Огромное спасибо!)