вот ты подаешь в качестве параметра в функцию строку. Потом в цикле сравниваешь ЭТУ СТРОКУ с СИМВОЛОМ из массива ES. В строке несколько символов, и они не будут никогда равны символу Вообще массив ES нужно делать двумерным, в первой строке русские во второй английские (или наоборот, как хочешь) символы.
Пробегать всю строку посимвольно. Строка получается это массив символов, т.е.
Code
Letter: String
...
for i := 1 to length(Letter) do
begin
ch:= Letter[i]; // получаем проверяемый символ
// а тут уже сравнение этого символа со всеми символами из массива ES.
// В случае совпадения, смотри символ в массиве под/над найденым (в зависимости от того как сделаешь этот массив, т.е. где будут русские а где английские символы)
// нашел, и заменил этот символ (Letter[i];) на найденый
end;
А в примере два массива. Но думаю для начала тебе лучше сделать самый простой вариант
