Нужно написать прогу в Pascal ABC.В данном тексте заменить все слова

program change;
var a1, a2, s: string;
k: integer;
begin
writeln(Введите текст.);
readln(s);
writeln();
writeln(Введите слово, которое надо заменить.);
readln(a1);
writeln();
writeln(Введите слово, на которое надо заменитью);
readln(a2);
writeln();
while pos(a1, s) lt;gt; 0 do
begin
k:= pos(a1, s);
delete(s, k, length(a1));
insert(a2, s, k);
end;
writeln(s);
end.