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

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