Операции над словом

[Macmeprag]

Помогите пожалуйста в программе надо при выполнении условия в слове удалить глухие согласные и продублировать гласные, с первой частью справляется прога вроде более-менее, а вот на второй выдает ошибку(
Delphi у меня 2010 поэтому и ansistring

procedure DoublingOfVowels(MassOfStr : ansistring; var len : integer);
var
  x : integer;
begin
  x := 1;
  while x <= len do begin
    if MassOfStr[x] in BigVowels+SmallVowels then begin
      inc(len);
      Move(MassOfStr[x+1], MassOfStr[x+2], len-(x+1));
      MassOfStr[x+1] := MassOfStr[x];
      inc(x);
      continue;
    end;
    inc(x);
  end;
  SetLength(MassOfStr,len);
end;

procedure OperationsOnWord(MassOfStr : ansistring);
var
  x,len : integer;
begin
  len := length(MassOfStr);
  x := 1;
  while x <= len do begin
    if MassOfStr[x] in BigConsonants+SmallConsonants then begin
      Delete(MassOfStr,x,1);
      dec(len);
      continue;
    end;
    inc(x);
  end;
  DoublingOfVowels(MassOfStr,len);
  SetLength(MassOfStr,len);
  Write(MassOfStr);
end;

Помогите пожалуйста

[Macmeprag]

немного переделал doublingvowels

procedure DoublingOfVowels(var MassOfStr : ansistring; var len : integer);
var
  x : integer;
begin
  x := 1;
  MassOfStr := MassOfStr+ ' ';
  while x <= len do begin
    if MassOfStr[x] in BigVowels+SmallVowels then begin
      inc(len);
      Move(MassOfStr[x+1], MassOfStr[x+2], len-(x+1));
      MassOfStr[x+1] := MassOfStr[x];
      inc(x,2);
      continue;
    end;
    inc(x);
  end;
  SetLength(MassOfStr,len);
end;

вход на котором я тестирую прогу это
а аб ааб аба ааабпф абаб абба аааа
на 3-ем слове сдыхает даблинг вовелс=(

[baster128]

Что такое
BigVowels+SmallVowels и
BigConsonants+SmallConsonants:confu sed:

[Macmeprag]

Это константы, большие/маленькие гласные/согласные, с ними все впорядке, программа не на этом шаге выдает ошибку

[baster128]

Продублировать я так понимаю поставить рядом
такую же
procedure DoublingOfVowels(var MassOfStr : ansistring);
var
x,len : integer;
begin
x := 1;
len:=Length(MassOfStr);
while x <= len do begin
if MassOfStr[x] in BigVowels+SmallVowels then begin
inc(len,2);
Insert(MassOfStr, MassOfStr[x+1],x);
end;
end;

[Macmeprag]

[DCC Error] Project1.dpr(61): E2197 Constant object cannot be passed as var parameter
на строчке с инсертом, даже компилятор не пропустил

[baster128]

Убери var из заголовка
procedure DoublingOfVowels(MassOfStr : ansistring);
Дай мне множество это, а то я у себя скомпелить не могу

[Macmeprag]

const
  BigConsonants = ['П','Ф','К','Ш','С','Т','Х','Ц','Ч','Щ'];
  SmallConsonants = ['п','ф','к','ш','с','т','х','ц','ч','щ'];
  BigVowels = ['А','Я','И','Ю','Ы','О','Э','Е','У'];
  SmallVowels = ['а','я','и','ю','о','э','е','у'];

[Macmeprag]

{$APPTYPE CONSOLE}
{$I+,Q+,R+}

uses
  SysUtils;
const
  BigConsonants = ['П','Ф','К','Ш','С','Т','Х','Ц','Ч','Щ'];
  SmallConsonants = ['п','ф','к','ш','с','т','х','ц','ч','щ'];
  BigVowels = ['А','Я','И','Ю','Ы','О','Э','Е','У'];
  SmallVowels = ['а','я','и','ю','о','э','е','у'];
  NMax = 1000;
  Separator = [chr(32)..chr(64)];
type
  TArr = array of ansistring;
var
  str       : ansistring;
  MassOfStr : TArr;
  f         : integer;

procedure ReadData(var str : ansistring);
var
  s : string;
begin
  while not EoF do begin
    ReadLn(s);
    str := str + s;
  end;
end;

procedure AlphabetSort(var MassOfStr : TArr; f : integer);
var
  i,j,x : integer;
  s     : ansistring;
begin
  for i := 0 to f do
    for j := 0 to f do
      for x := 1 to length(massOfStr[i]) do begin
        if MassOfStr[i,x] = MassOfStr[j,x] then
          continue;
        if MassOfStr[i,x] < MassOfStr[j,x] then begin
          s := MassOfStr[i];
          MassOfStr[i] := MassOfStr[j];
          MassOfStr[j] := s;
          break;
        end
        else
          break;
      end;
  for i := 0 to f do
    Write(MassOfStr[i],' ');
end;

procedure DoublingOfVowels(var MassOfStr : ansistring; var len : integer);
var
  x : integer;
begin
  x := 1;
  while x <= len do begin
    if MassOfStr[x] in BigVowels+SmallVowels then begin
      inc(len,2);
      Insert(MassOfStr[x],MassOfStr[x+1],x);
      inc(x,2);
      continue;
    end;
    inc(x);
  end;
  SetLength(MassOfStr,len);
end;

procedure OperationsOnWord(MassOfStr : ansistring);
var
  x,len : integer;
begin
  len := length(MassOfStr);
  x := 1;
  while x <= len do begin
    if MassOfStr[x] in BigConsonants+SmallConsonants then begin
      Delete(MassOfStr,x,1);
      dec(len);
      continue;
    end;
    inc(x);
  end;
  DoublingOfVowels(MassOfStr,len);
  SetLength(MassOfStr,len);
  Write(MassOfStr);
end;

procedure CallingOfOperationsOnWords(var MassOfStr : TArr; f:integer);
var
  i : integer;
begin
  WriteLn;
  for i := 0 to f do OperationsOnWord(MassOfStr[i]);
end;

procedure Solve(str : ansistring; var MassOfStr : TArr; var f : integer);
var
  i,x           : integer;
  s             : ansistring;
begin
  str:=str+' ';
  f := -1;
  for i := 1 to Length(str) do begin
    if str[i] in separator then begin
      inc(f);
      SetLength(MassOfStr,f+1);
      MassOfStr[f] := s+' ';
      s:= '';
      Continue;
    end;
    s := s + str[i];
  end;
  for i:=0 to f do
    for x:=1 to Length(MassOfStr[i])-1 do begin
      if ((Length(MassOfStr[i])>1) and (MassOfStr[i,Length(MassOfStr[i])-1]=MassOfStr[i,x])) then break;
    end;
end;

begin
  ReSet(input,'input.txt');
  ReWrite(output,'output.txt');
  ReadData(str);
  Solve(str,MassOfStr,f);
  CallingOfOperationsOnWords(MassOfStr,f);
end.

Вот вообще все что написал..
Вар вроде нельзя убирать если элемент под ним изменяется и должен передасться дальше в измененном виде

[Macmeprag]

Кто-нибудь пможет с проблемой?!?)
Помогите пожалуйста еще решить вопрос не по теме..

while not KeyPressed do begin
  case c of
    1: Write('|');
    2: Write('/');
    3: Write('-');
    4: Write('\');
  end;
  Delay(2000);
  Inc(c);
  If c>4 then c:=1;
end;

Как такой алгоритм можно реализовать в делфи?!