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

[GHOST_DOG]

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

program zadacha;
uses crt;
var m: set of char;
    i,j,k:integer;
    buf:char;
    s1:string;
begin
clrscr;
m:=['a','e','i','o','u','y'];

writeln('Vvedite tekst do tochki');
read(s1);
k:=0;
writeln;
writeln('Glasnie bukvi:');

for i:=1 to pos(',',s1)-1 do
for j:=pos(',',s1)-1 downto i+1 do
if s1[j]<s1[j-1] then
begin
buf:=s1[j];
s1[j]:=s1[j-1];
s1[j-1]:=buf;
end;

for k:=1 to pos('.',s1) do
if (s1[k] in m) then
write(s1[k]);
readkey;
end.

Вот написал, но выдает все гласные буквы, даже которые противоречат уловию, и не в алфавитном порядке. Помогите пожалуста.

[Veselyn]

Нужно сделать цикл поиска в алфавитном порядке от 'А' до'z'

for ...:='А' to 'z' do

[Stilet]

Veselyn

Неправильно. В For нужно целочисленное значение использовать.

[GHOST_DOG]

Скажите, как условие написать, чтоб если гласная буква в другом слове опять встретилась, то ее не надо выводить? Я додумкать ваще немогу че то(((

[Veselyn]

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

Неправильно. В For нужно целочисленное значение использовать.

Можно, вот нашол пример такой программы.
Программа читает текст из файла до точки один раз, подсчитывая в массиве, хранящем 26 целых чисел, количество каждой из букв. Сам текст, при этом, не запоминается. Затем в этом массиве ищется первое вхождение максимального элемента.

var a:array['A'..'Z'] of integer;
    c, cmax: char;
begin
  assign(input,'text.dat');
  reset(input);
  for c:='A' to 'Z' do a[c]:=0;
  repeat
    read(c);
    c:= upcase(c);
    if c in ['A'..'Z'] then
      a[c]:=a[c]+1
  until c='.';
  cmax := 'A';
  for c:= 'B' to 'Z' do
    if a[c] > a[cmax] then
      cmax := c;
  writeln(cmax,' ',a[cmax])
end.

[Stilet]

Veselyn

Чет у меня на нем паскаль ругается...
Впрочем убедил.. Только я б не рекомендовал так.

Скажите, как условие написать, чтоб если гласная буква в другом слове опять встретилась

Я тут выкладывал похожие сортировки с фильтром методом индексов - поищи.