задача на строки, В заданом тексте заменить слово А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 23:10

[Michael_Rybak]

I am ..., пользуйся, пожалуйста, тэгом code.

[Айра]

А зачем тебе s3? Или ты таким способом хочешь пройтись по всей строке?
Тогда лучше так:

var s,s1,s2: string;
    p: integer;
begin
  writeln('введите строку:');
  readln(s);
  write('s1 = ');
  readln(s1);
  write('s2 = ');
  readln(s2);
  while pos(s1,s)<>0 do  //пока в строке еще обнаруживается подстрока s1, то выполняем
    begin
      p:=pos(s1,s);   
      delete(s,p,length(s1)); //удалили s1
      insert(s2,s,p);  //вставили на его место s2
    end;
  writeln(s);
end.

p.s. с тэгами ведь лучше

Сообщение отредактировано: Айра - 18.03.2008 23:29

[I am ...]

ы))красивее))
Огромное спасибо)

[klem4]

советую уточнить задание, ибо подстрока и слово разные вещи.