Иногда нам бывает нужно заменить элементы текста. Предоставлю вариант решения задачи..:Код:
function Zamina(s_text:string):string;
var s:string;
i:integer;
begin
for i:=1 to i_k do
while pos(s11[i],s_text)>0 do
begin
s:=copy(s_text, pos(s11[i],s_text)+length(s11[i]), length(s_text));
s_text:=copy(s_text, 1, pos(s11[i],s_text)-1)+s12[i]+s;
end;
result:=s_text;
end;
Константы:
s11 - являет собой массив с элементов текста, которые подлежат замене, к примеру:
Код:
s13: array[1..71] of string =('zgh','Zgh','sh',...)
s12 - являет собой массив с элементов текста, которые изменяют элементы текста,  указанные в s12, например:
Код:
s11: array[1..71] of string =('зг','Зг','ш','Ш',...)
i_k - это есть количество элементов в массивах, на данном примере оно равное числу 71

Спонсор поста:  если вы желаете найти самые популярные сайты в Рунете, не ищите их сами. Лучше зайдите на блог webjunk.ru. На нем вы найдете рейтинг найболее популярных ресурсов и еще море полезной и нужной информации.