PROGRAM stroki;
USES
  crt;
CONST
  bukv=['a..z'];
  bukv2=['а..я'];
  glas=['А','Е','Ё','И','Й','У','О','Ы','Э','Ю','Я'];{гласные}
VAR
  st,stwork,stnew:string;{вводимая строка, рабочая строка,итоговая строка}
  i,j,k,p:integer;{i,j,k - щечики, p - позиция пробела}
BEGIN
  clrscr;
  writeln('Программа удаляет из строки слова, в которых повторяется гласная.');
  writeln('Введите строку:');
  readln(st);
  i:=1;
  if st[Length(st)]<>' ' then {добавляет пробел к концу строки}
    st:=st+' ';
  while i<(Length(st)+1){+1 потому что добавили пробел} do {просмотр всей строки}
    begin
      p:=Pos(' ',st);
      if i=p then {заносить слово в новую строку}
        begin     {если там по одной гласной}
          stnew:=stnew+Copy(st,1,p);
          Delete(st,1,p);
          i:=1;
        end;
      if (st[i] in glas) then {если символ строки гласный то всё слова}
        stwork:=Copy(st,1,p); {заносит в рабочую строку}
      j:=1;
      k:=0;
      while j<Length(stwork) do {проверка слова на повторные гласные}
        begin
          if (st[i]=st[j]) and (st[i] in glas) then
            inc(k);
          inc(j);
        end;
      if k>1 then {если гласная повторяется то удалить слово}
        begin
          Delete(st,1,p);
          i:=0;
        end;
     inc(i);
    end;
  if (stnew='') or (stnew=' ') then
    writeln('Нет подходящих слов')
  else
    writeln('Итоговая строка:',stnew);
  repeat
  until keypressed;
END.