[kventl]

вот еще забыла дописать одну,не уверенна что правильно

Код:

  {Дублирование гласных в слове}
  Function DoubleGlas(Word : string) : string;
var i  : integer;
begin
  i:=1;
  while i <= Length(word) do
  begin
     if (word[i] in Glas) then
     begin
       Insert(word[i], word, i);
       Inc(i);
     end;
     Inc(i);
  end;
  result:=Word;
end;