Нужно написать прогу в Pascal ABC. В заданном тексте заменить все слова A1 на слова A2 (слова в тексте разделены пробелами слова A1 и A2 вводятся с клавиатуры)

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) 0 do

begin

k: = pos (a1, s);

delete (s, k, length (a1));

insert (a2, s, k);

end;

writeln (s);

end.