Удаление слов, нужно удалить слова Опции

[-Марина-]

Помогите! Нужна процедура, которая бы удаляла из текста слова, содержащие две или более разные гласные буквы.
P.S. Текст файлового типа и слова в нём уже разделены пробелами.

[volvo]

Может быть выгоднее читать посимвольно из файла, и уже во время составления слова подсчитывать число разных гласных в нем:

const
  vowels = ['A','a', 'E','e', 'I','i', 'O','o', 'U','u'];

var
  fin, fout: text;

  one_word: string;
  ch: char;
  count: integer;
  already: set of char;


begin
  assign(fin, 'in.txt'); reset(fin);
  assign(fout, 'out.txt'); rewrite(fout);

  while not eof(fin) do begin

    one_word := '';
    count := 0; already := [];

    repeat
      read(fin, ch);

      if ch = ' ' then begin

        if count < 2 then write(fout, one_word + ch);

        one_word := '';
        count := 0; already := [];

      end
      else begin
        one_word := one_word + ch;
        if (ch in vowels) and not (ch in already) then begin
          include(already, ch);
          inc(count);
        end;
      end;

    until eoln(fin);

    if (one_word <> '') and (count < 2) then
      write(fout, one_word);

    writeln(fout);
    readln(fin);

  end;

  close(fout);
  close(fin);
end.