Переделать программу под Паскаль
Разработать программу, которая для заданной строки s:
• вставляет символ x после каждого вхождения символа y;
static void Main(string[] args)
{
Console.WriteLine("Введите строку: ");
StringBuilder a = new StringBuilder(Console.ReadLine());
Console.WriteLine("Исходная строка: " + a);
Console.WriteLine("Введите символ x: ");
char x = char.Parse(Console.ReadLine());
Console.WriteLine("Введите символ y: ");
char y = char.Parse(Console.ReadLine());
for (int i = 0; i < a.Length; ++i)
if (a[i] == x) { a.Insert(i + 1, y); ++i; }
Console.WriteLine("Измененная строка: " + a);
Console.ReadKey();
}
сам не знаю языка

var str: string;var x,y: char;var i: integer;begin    writeln('Введите строку:');    readln(str);    writeln('Введите символ x:');    readln(x);    writeln('Введите символ y:');    readln(y);    i:=1;    while i <= length(str) do      if str[i] = y then      begin          insert(x, str, i + 1);          i := i + 2;      end      else          i:= i + 1;    writeln(str);    end.

var s1,s2:string; x,y:char; i:integer;beginwriteln('Введите строку:');readln(s1);writeln('Введите символ x:');readln(x);writeln('Введите символ y:');readln(y);s2:='';for i:=1 to length(s1) do if s1[i]=y then s2:=s2+s1[i]+x else s2:=s2+s1[i];writeln('Измененная строка: ', s2); end.Пример:Введите строку:a+bc+def+abc=jklВведите символ x:-Введите символ y:+Измененная строка: a+-bc+-def+-abc=jkl