Напишите программку, которая сменяет во всей строке одну последовательность знаков на

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var s:string; Writeln('Введите строку:'); Readln(s);
  var s1:=ReadlnString('Что меняем:');
  var s2:=ReadlnString('Чем поменять:');
  s:=s.Replace(s1,s2);
  Writeln('Итог'); Writeln(s)
end.

Пример
Введите строчку:
(X gt; 0) and (Y lt; X) and (Z gt; Y) and (Z lt;gt; 5)
Что меняем: and
Чем поменять: amp;
Итог
(X gt; 0) amp; (Y lt; X) amp; (Z gt; Y) amp; (Z lt;gt; 5)