задача на строки, В заданом тексте заменить слово А1 на слово А2 Опции

[I am ...]

Помогите плиз!
В заданом тексте заменить слово А1 на слово А2.

[I am ...]

uses crt;
var s,s1,s2,s3: string;
i:integer;
begin
write ('stroka s: ');
readln (s);
s3:='';
s1:='a1';
s2:='a2';
for i:=1 to length(s) do
begin
if s[i]<>' ' then s3:=s3+s[i];

begin
insert (s2,s,pos(s1,s));
delete (s,pos(s1,s),length(s1));
end;
end;
write(': ',s);
end. ну это так наброски..

Добавлено через 4 мин.
проблемы с insert.. возникают.. удаляет все а1, но а2 не так вставляет....

Сообщение отредактировано: I am ... - 18.03.2008 19:10