Заменить все символ "x" на символ "y", а символы "z" на символ "t"

[Fox7DSins]

Добрый день. Прошу помочь с задачкой.

Дана строка символов. Заменить все символ "x" на символ "y", а символы "z" на символ "t". Для ввода исходного текста и вывода результата на рабочем листе установить два поля ввода TextBox.

[Аватар]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
begin
   s:=Edit1.Text;
   For i:=1 to Length(s) do
   begin
      If s[i]='x' then
         s[i]:='y';
      If s[i]='z' then
         s[i]:='t';
   end;
   Edit2.Text:=s;
end;