glas

{
Программа. Дана непустая последовательность слов из
строчных латинских букв; между соседними словами - запятая,
 за последним словом - точка. Напечатать в алфавитном
 по-рядке все гласные буквы, которые не входят более чем
 в одно слово.
}
var
s,glas : string;
ar : array[1..6] of integer;
i,j : integer;
begin
  s := 'helle,world,tihis,s,mo,and,my,program.'; // строка
  glas := 'aeiouy'; // гласные

  for i := 1 to 6 do ar[i] := 0;

  for i := 1 to 6 do begin
      j := 1;
    while(j < s.length) do begin
      if(glas[i] = s[j]) then begin
        inc(ar[i]);
        while(j < s.Length) do begin
          if((s[j] = ',') or (s[j] = '.')) then break;
          inc(j);
        end;
      end;

      inc(j);
    end;
  end;

  for i := 1 to 6 do begin
    if(ar[i] = 1) then writeln(glas[i],' - ',ar[i]);
  end;

end.