[Страдалецъ]

Код:

Const
 Similar: record Rus,Lat: String[5]; end = (Rus:'аоерс';Lat:'aoepc');
begin
 for i := 1 to 5
 do S := StringReplace(S,Similar.Lat[i],Similar.Rus[i],[rfReplaceAll]);
end;