(delphi) задача по обработке строкавых данных.

[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? Заранее спасибо!

[Mad_Cat]

i:=1;
while i<= length(s) do
if s[i] ='a' then begin insert('(i)',s,i+1);i:=i+4;end
else i:=i+1;

[anubiss]

Спасибо)

[anubiss]

Сообщение от Mad_Cat

i:=1;
while i<= length(s) do
if s[i] =a then begin insert('(i)',s,i+1);i:=i+4;end
else i:=i+1;

У меня введённый текст выводит без каких либо изменений, в чём может быть причина

[vovk]

стёр...
извените не спал долго внимательность упала.

Может быть

procedure TForm2.Button1Click(Sender: TObject);
var s:string;
i:integer;
begin
s:=Edit1.Text;
i:=1;
while i<= length(s) do
if s[i] ='a' then begin insert('(i)',s,i+1);i:=i+4;end
else i:=i+1;
Edit2.Text:=s;
end;

и не путайте "а" русскую с "a" на латинице

[anubiss]

Большое спасибо!! Проблема была из за того что я действительно попутал русские буквы с латинскими а так всё работает!!!