может кто знает?помогите ребят!

[андрей223]

В тексте сократить все слова после согласных букв, расположенных за первой гласной буквой или последовательными гласными буквами. Знаки препинания должны остаться без изменений.

Например, исходный текст:
«Проверка вывода текста производится согласно установленного правила»
Результат:
«Пров. выв. текст. произв. согл. уст. прав.»

Текстовый файл выбирается через окно диалога и загружается в объект типа TMemo и/или создается/редактируется в объекте типа TMemo.

[evg_m]

for i:=0 to memo.lines.count-1 do begin
  j:=1;
  s:=memo.lines.strings[i];
  while j<length(s) do begin
    j:=GetBeginword(s, j);
    if j>=length(s) then break;// if j<0 then break;
    k:=GetEndWord(s, j);
    j:=GetFirstGlas(s, j, k);
    j:=GetFirstSoglas(s, j, k);
    Delete(s, j+1, k-j-1);
    Insert(s, j+1, '.');
  end;
  memo.lines.strings[i]:=s;
end;

function GetFisrtsymbolOf(const s: string; start, stop: string; symbolset: TcharSet): integer;
begin
  result:=-1;
  for j:=start to stop do begin
    if s[j] in symbolset then begin
       result:=j; break;
    end;
end;

function GetBeginWord(const s: string; start: integer): integer;
begin
  result:=GetFirstSymbolOf(s, start, length(s), ['а'..'я', 'А'..'Я']);
end;

function GetFirstGlas(const s: string; start, stop: integer);
begin
  result:=GetFirstSymbolOf(s, start, stop, ['а', 'о', ....];
end;