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

[-Марина-]

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

[klem4]

вот тебе пример для одной строки:

uses crt;

function CheckWord(const word: string): boolean;
const
  volwes = 'eyuioa';
var
  i, p: byte;
  ok: boolean;
begin
  i := 1;
  ok := true;

  while (i <= 6) and ok do begin
    p := pos(volwes[i], word);

    if p > 0 then
     ok := pos(volwes[i], copy(word, p + 1, 255)) = 0;

    if ok then inc(i);
  end;

  CheckWord := i > 6;
end;

procedure ReformString(var s: string);
var
  i, start: byte;
begin
  i := 1;
  while i <= length(s) do begin

    while (i <= length(s)) and (s[i] = ' ') do
      inc(i);

    if i <= length(s) then begin

      start := i;
      while (i <= length(s)) and (s[i] <> ' ') do
        inc(i);

      if not CheckWord(copy(s, start, i - start)) then begin
        delete(s, start, i - start + 1);
        i := start;
      end;

    end;
  end;
end;

var
  s: string;

begin
  clrscr;
  s := 'qwerty eqqqe fio fioi eyuioa!';
  writeln('"' + s, '"');
  ReformString(s);
  writeln('"' + s, '"');
  readln;
end.