for i:=1 to j do
     case s[i] of
      'й','ь','ъ': ss:=ss+'x';
      'а','е','ё','и','о','у','ы','э',
      'ю','я','a','e','i','o','u','y' : ss:=ss+'y';
      'б','в','г','д','ж','з','к','л',
      'м','н','п','р','с','т','ф','х',
      'ц','ч','ш','щ','b','c','d','f',
      'g','j','k','l','m','n','p','q',
      'r','s','t','v','w','x','z' : ss:=ss+'z';
      else ss:=ss+s[i]; 
    end;

Add(MainForm,5806304,168,175)
{
 Width=172
}
Add(Button,13604353,168,224)
{
 Top=40
 Caption="найти"
 link(onClick,15388898:doString,[])
}
Add(Edit,9851483,245,154)
{
 Left=5
 Top=5
 Text="а"
}
Add(Edit,2606784,511,231)
{
 Left=75
 Top=5
 Text=""
}
Add(Message,3213663,462,273)
{
 Message="Нет такого слога"
}
Add(Memo,6001386,385,154)
{
 Left=10
 Top=75
 Width=115
 Height=185
 Strings=#1:а|2:аб|3:абр|4:абра|5:абрак|6:абрака|7:абракад|0:|
 ScrollBars=2
}
Add(FormatStr,15388898,245,224)
{
 DataCount=1
 Mask=".*%1.*"
 link(onFString,10195223:doEvent1,[])
 link(Str1,9851483:Text,[])
}
Add(RE_Check,9217605,385,231)
{
 Point(Expression)
 link(onMatch,1068982:doReplace,[])
 link(onDismatch,3213663:doMessage,[(439,244)(439,279)])
 link(Str,6001386:Text,[])
 link(Expression,7632550:GetData,[(398,212)(433,212)])
}
Add(Hub,10195223,343,224)
{
 link(onEvent1,7632550:doData,[(375,230)(375,146)])
 link(onEvent2,9217605:doCheck,[])
}
Add(EventFromData,7632550,427,140)
{
}
Add(Replace,1068982,462,231)
{
 SubStr=".*"
 link(onReplace,2606784:doText,[])
}