[anubiss]

Здравствуйте. Помогите пожалуйста вот с чем
Дан исходник задачи:

Код:

procedure TForm2.Button1Click(Sender: TObject);
var s:string;
i,k:integer;
begin
s:=Edit1.Text;
k := 0;
For i := 1 to length(S) do
If s[i]='а' then
s[i]:='i';


Edit2.Text:=s;
end;

Админ: Пользуемся тегами для оформления кода!

Помогите сделать так, что бы в данной задаче находимую букву "а" не заменяло на букву "i", а дописывало после неё в скобках?
И ещё просьба. В данной задаче текст вводится и выводится через строки Edit1,2; как сделать так чтобы текст вводился и выводился через Memo1,2? Заранее спасибо!