Еще одно условие и задача решена, но какое??

Привет, всем.
Я решаю следующую задачу: Ввести подстроку, подстроку 1 и подстроку 2. Заменить в сроке все вхождения подстроки 1 на подстроку 2.
Решение, которое я придумала:
var
t1: integer;
a1,a2, txt: string;

begin
writeln('Input text: '); readln(txt);
writeln('Input sub-line_1: '); readln(a1);
writeln('Input sub-line_2: '); readln(a2);

t1:=0;
while pos(a1,txt)<>0 do
begin t1:=t1+1;
delete (txt,pos(a1,txt),length(a1));
insert(a2,txt,pos(a1,txt));
end;

writeln('new text= ',txt);
readln;
end.

Но что-то в этом решении не хватает, т.к. если первое вхождение subline1 в середине предложения, то оно вставляется в самое начало, что не есть правильно.
Помогите найти недостающее условие, пожаааалуйста :)